Переделать программу под оператор 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

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