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, как написано в условии!