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

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