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

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

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

- - - - - -
- - - - - -
- - - - - -
- - - - - -

program    task_1_lesson_13_2;
var m, n: integer;
begin
  n := 1;
  m := 1;
  repeat
    repeat
      write('- ');
      m += 1;
    until (m > 6);
    writeln();
    m := 1;
    n +=1;
  until (n > 4);
  readln();
end.