Пословицы к сказке "Две лягушки":

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