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

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

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

Консоль:

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