Почему появляется ошибка: ожидалось имя типа

program n_1;

const pi=3.14;

var r, c, s, real:

begin

writeln ('Вычесление длины окружности и площади круга');

write ('Введение r>>');

readln (r);

c:=2*pi*r;

s:=pi*r*r;

writeln ('с=', с: 6:4);

writeln ('s=', s: 6:4)

end.

Program n_1;

const pi=3.14;

var r, c, s: real;

begin

writeln ('Вычесление длины окружности и площади круга');

write ('Введение r>>');

readln (r);

c:=2*pi*r;

s:=pi*r*r;

writeln ('с=', c: 6:4);

writeln ('s=', s: 6:4)

end.

Были исправлены ошибки в операторах

var r, c, s, real:

и

writeln ('с=', с: 6:4);

writeln ('s=', s: 6:4)

; забыл

var r, c, s, real:

поменять на

var r, c, s: real;

Несовсем понимаю зачем

writeln ('с=', с: 6:4);

с: 6:4