Программа на Паскаль. Условие задачи: вычислить площадь окружности. Радиус вводится с клавиатуры

Var

r, pi:real;

begin

writeln ('Введите радиус окружности') ;

readln (r) ;

pi:=4*ArcTan (1) ;

writeln ('Площадь окружности равна ', pi*sqr (r))

end.

Тестовые решения:

Введите радиус окружности

1

Площадь окружности равна 3.14159265358979

Введите радиус окружности

3.54

Площадь окружности равна 39.3691824977259