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

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