Составить программу вычисления площади круга

program S_kruga;
var r, s:real;
begin
writeln(Вычисление площади круга);
writeln(Введите, чему равен радиус );
readln(r);
s:=3.14*r*r;
writeln(Площадь круга =, s);
end.

Примечание. Программка написана на Паскале. Строка 4 не неотклонима, добавлена в эстетических целях