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

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

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

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

program zadacha1;
var i, j ,n, m :integer;
begin
  n:=10;
  m:=5;
  repeat
    j:=0;
    repeat
      write('- ')
      j:=j+1;
    until j = m;
    writeln();
    i:=i+1;
  until i = n;
  readln();
end.