Question

Сделайте кто-нибудь програмку пожалуйста, турбо паскаль 7.1 вообще не мое

Answer 1

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; - это зависит от того, как вас учили