Около школы разбили клумбу в форме круга радиусом R м. На 1м² площади требуется Х г семян цветов. Сколько граммов семян надо купить? Площадь круга вычисляется по формуле S=π•R². В качестве π используйте функцию pi. Значения переменных R, X ввести с клавиатуры .

var

R,x,c,f:real;

pi:real;

begin

write('Введите x семян на 1 кв.м:');

readln(x);

write('Введите S:');

readln(R);

pi:=3.1415926;

c:=pi*(sqr(R));

f:=c*x;

writeln('Площадь клумбы равна:',c);

writeln('Кол-во семян для покупки:',f);

end.