Verified answer

function sq(x:real):real;

begin

sq:=pi*x*x;

end;

var r,s:real;

begin

write('R = ');

readln(r);

s:=sq(r);

writeln('30% от площади круга = ',0.3*s);

end.

Пример:

R = 2

30% от площади круга =  3.769911184307752e+00