Program n_1;
Const pi=3.14;
Var r, s, c: real;
Begin
r:=5.4;
c:=2*pi*r;
s:=pi*r*r;
writeln ('c=',c:6:4);
writeln ('s=',s:6:4)
end.
Вычислите длины окружности и площади круга
Введите r-8.5
c=53.3800
s=226.8650