Около школы разбили клумбу в форме круга радиусом 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.