помоги по оивт
срочно ​

program krug;

var r:real;

begin

write('введите радиус: ');

readln(r);

writeln('С=',2*3.14*r);

writeln('S=',3.14*r*r);

readln;

end.

кажись так