Решение задачи №1 из главы 13.2

Задача №1 из главы 13.2

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

1. - - - - - -
   - - - - - -
   - - - - - -
   - - - - - -

var m,n: integer;
begin
  m := 1; // начальное значение для счетчика внешнего цикла

  repeat // начало тела внешнего цикла
    n := 1; //  сбрасываем значение счетчика внутреннего цикла в единицу
    repeat // начало внутреннего цикла
      write('- ');
        n:=n+1; // увеличиваем значение счетчика внутреннего цикла
    until (n>=7);

    writeln(); // переносим строку
    m:=m+1; // увеличиваем значение счетчика внешнего цикла

  until (m > 4);  // проверка условия выхода из внешнего цикла и конец его тела
  readln();
end.