Заданы n окружностей с радиусами r1 rn. написать программу, которая запрашивает радиус каждой окружности.

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