Question

Помогите пожалуйста, 15 баллов

Дана программа. Есть ли ошибки в данной программе? Если есть, то указать какие.
program n_2;
const pi=3.14;
var t, c, s : real;
begin
writeIn(Вычисление длины окружности и площади круга);
write(Введите r>>);
readIn (r);
c:=2*pi*r;
s:=pi*r*r;
writeIn (c=, c:6:4);
writeIn (s=, s:6:4);
end.