Урок 14.1 Задача 7

https://fkn.ktu10.com/?q=node/15820

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

program u14_1_z7;
var  m:integer;

procedure p1();
var i:integer;

begin
  i:=1;

  repeat
    write('-',' ');
    i:=i+1;
  until(i > 6);

  writeln();
end;

begin
  m:=0;

  repeat
    if (m = 6) then
      break;
    p1();
    m:=m + 1;
  until (m > 6);

  writeln('konec');
  readln();
end.