Задача 1 Урок 13.2

Задача 1 Урок 13.2

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

var m,i: integer;
begin
  m := 1;
  repeat
    i := 1;
    repeat
      write('- ');
      i := i + 1;
    until (i >= 7);
    writeln();
    m := m + 1;
  until (m > 4);
  readln();
end.