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

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

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

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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.