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

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

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