1- это рисунок как получится, а во 2 сама программа :)
Совокупность правил одобреная администратором.
обновление.
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.