Question

задание на фото.помогите пожалуйста.

Answer 1

var
s,r:real;
begin
readln r;
s:=3,14*r*r;
writeln s;
end.