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

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

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

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

program U13_2Z1;
var m,n,i,j: integer;
begin
  i:=1;
  j:=1;
  writeln('vvedite dlinu flaga');
  readln(m);
  writeln('vvedite shirinu flaga');
  readln(n);
  repeat
    repeat
      write('- ');
      i:=i+1;
    until (i > m);
    j:=j+1;
    i:=1;
    writeln();
  until (j > n);
  readln();
end.