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

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

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

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

var i, k,  M, N: integer;
begin
  writeln('vvedi shiriny');
  readln(M);
  writeln('vvedi visota');
  readln(N);
  k := 0;
  repeat
    i := 0;
    repeat
      write('-');
      i := i + 1;
    until(i = M);
    writeln();
    k := k + 1;
  until(k = N) ;
  readln();
end.