var S,R:real;
begin
writeln('Введите значение R: ');
readln(R);
S:=Pi*sqr(R);
writeln('целая часть S = ',int(S));
writeln('дробная часть S = ',frac(S));
writeln('округление S = ',round(S));
end.
var S,R:real;
begin
writeln('Введите значение R: ');
readln(R);
S:=Pi*sqr(R);
writeln('целая часть S = ',int(S));
writeln('дробная часть S = ',frac(S));
writeln('округление S = ',round(S));
end.