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

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

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

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