Program krug;
var r, s, l: real;
begin
write('Введите радиус '); readln(r);
s:=pi*sqr(r); writeln('Площадь круга - ',s:5:3);
l:=2* pi*r; writeln('Длина окружности - ',s:5:3);
end.
можно найти площадь круга и по-другому: s:=pi*r*r; - это зависит от того, как вас учили