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

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

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

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

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