1program Krug;

2var r,s:real;

3begin

4Writeln('Введите радиус круга >>');

5read (r);

6s:=3.14*r*r;

7Writeln('Площадь круга:',s);

8end.

Попробуй!