Question

По известной блок схеме, составьте программу Pascal

Answer 1

program pas;
var R,s:real;
begin
readln(R);
s:=3,14*R*R;
writeln(s);
end.