Дан радиус круга. Определить длину окружности и площадь круга. Pascal.Пожалуйста посчитайте пожалуйста.

begin
  var r:=ReadReal('Введите радиус->');
  writeln ('Длина окружности равна - ',2*3.14*r);
  writeln ('Площадь окружности равна - ',3.14*sqr(r));
end.


Введите радиус-> 5
Длина окружности равна - 31.4
Площадь окружности равна - 78.5