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

program S_kruga;

var r, s:real;

begin

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

writeln ('Введите, чему равен радиус ');

readln (r);

s:=3.14*r*r;

writeln ('Площадь круга = ', s);

end.

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