Переделать программу под оператор read program n_1; const pi= 3.14; bar= r,c,s: real...

Question

Переделать программу под оператор read
program n_1;
const pi= 3.14;
bar= r,c,s: real
begin
r:=5.4;
c:= 2*pi*r;
s:=pi*r*r;
writeln ('c=', c:6:4);
writeln ('s=', s:6:4)
end

Answer 1

Program n_1;
var r,c,s: real;
begin
readln(r);
c:= 2*pi*r;
s:=pi*r*r;
writeln ('c=', c:6:4);
writeln ('s=', s:6:4)
end.

Пример:
5
c=31.4159
s=78.5398