Var
r: real;
begin
Write('Введите радиус оружности: ');
Readln(r);
Writeln('Площадь круга: ', Pi * sqr(r):0:4, ', длина окружности: ', 2 * Pi * r:0:2)
end.
Тестовое решение:
Введите радиус оружности: 52.8
Площадь круга: 8758.2577, длина окружности: 331.75