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

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

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

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

program u132z1;
var m,n,i,j: integer;
begin
  writeln('Vvedite N u M');
  readln(n); //высота
  readln(m); //ширина
  repeat
    repeat
      write('- ');
      i:=i+1;
    until i = m;
    writeln();
    i:=0;
    j:=j+1;
  until j = n;
  readln();
end.