Переработать программу под оператор readprogram n_1;const pi= 3.14;bar= r,c,s:

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