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

var
  r,pi:real;
begin
  writeln('Введите радиус окружности');
  readln(r);
  pi:=4*ArcTan(1);
  writeln('Площадь окружности равна ', pi*sqr(r))
end.

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

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

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