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

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

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

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

var b,a,i,j: integer;
begin
  writeln('Введите число M');
  readln(b);
  writeln('Введите число N');
  readln(a);
  i:=1;
    repeat
      j:=1;
       repeat
        write('-');
        j:=j+1;
       until(j>a);
      writeln();
      i:=i+1;
    until(i>b);
readln();
end.