Pascal ABC. Задан радиус окружности r. если радиус окружности меньше 6 см, найти длину этой окружности, в противном случае найти площадь круга, ограниченного данной окружностью. L=2pr, S=2pr^2

Var

r: real;

begin

writeln ('Введите радиус окружности в сантиметрах') ;

readln (r) ;

if r < 6 then writeln ('Длина окружности: ', 2 * pi * r)

else writeln ('Площадь круга, ограниченного данной окружностью: ', pi * sqr (r)) ;

end.

Площадь круга равна pi * r^2, а не 2pr^2, как написано в условии!