Найти площадь круга.
program ploshad;
const
pi = 3.14;
var
s : real; {Площадь круга}
r : real;{Радиус}
l : real;{длина окружности}
begin
writeln('Введите радиус.');
readln(r);
s := pi*r*r;
l := 2*pi*r;
writeln('Площадь круга = ', s:2:2);
writeln('Длина окружности = ', l:2:2);
writeln('Нажмите ентер.');
readln;
end.