Найти длину окружности и площадь круга радиуса R- Pascal(Паскаль)

program E10(input,output);
const= pi=3.14
var 
R:REAL;
S:REAL;
C:REAL;
begin
writeln ('введите значение радиуса R=');
read(R);
S = pi*R*R;
с = 2*pi*R;
writeln('результат:');
writeln('площадь = ' ,s:8:3)
writeln('длина окружности = ' ,с:8:3)
end.