Question

заданы N окружностей с радиусами R1 R2..... Rn. Написать программу, которая запрашивает радиус каждой окружности.

Answer 1

var i, N: integer;
begin
     readln(N);
     for i := 1 to N do
     begin
          writeln('Введите R ', i, 'окружности');
          readln();
     end;
end.