Составить программу для вычисления площади круга, радиус которой ...

Вера

Program CircleS;

Uses Crt;

const pi=3.14;

var S,r:real;

begin

     clrscr;

     write('Введите радиус круга:');

     readln(r);

     S:=pi*(r*r);

     writeln('Площадь круга:',S);  

    readkey;

 

end.