Я конечно не мастер но можно так попробовать)
program 1;
var s r: real;
begin
readln (r);
s=3,14*sqr(r);
writeln('S=';s);
end.
var R,S:real;begin readln (R); S:=3.14*R*R; writeln (S);end.
Я конечно не мастер но можно так попробовать)
program 1;
var s r: real;
begin
readln (r);
s=3,14*sqr(r);
writeln('S=';s);
end.
var
R,S:real;
begin
readln (R);
S:=3.14*R*R;
writeln (S);
end.