Задача 1 урок 12.2

Имеется программа:

var i: integer;
begin
  for i:=5 to 34 do
    write(i, ' ');
 
  readln();
end. 

Ответьте на вопросы/выполните задания

Что в ней происходит?
Что будет на экране после её выполнения?
Перепишите её, используя цикл while.
Перепишите её, используя цикл repeat/until.

1) инициализируем цельночисленную переменную 'i' , в цикле for присваиваем ей начальное значение =5, а последнее в цикле 34, далее в каждой итерации выводим в консоль все целые числа от 5 до 34 (такие значения примет переменная i) через пробел, "блокируем" выход из консоли с помощью функции readln()

2) ряд чисел от 5 до 34

var i: integer;
begin
  i := 5;
  while (i < 35) do
  begin
    write(i, ' ');
    i := i + 1;
  end;

  readln();
end.

var i: integer;
begin
  i := 5;
  repeat
  begin
    write(i, ' ');
    i := i + 1;
  end;
  until (i > 34) ;
  readln();
end.