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

Урок 13.2

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

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

var n, m, i, j: integer;

begin
  i := 0;
  j := 0;
  writeln ('Vvedite visotu flaga');
  readln(n);
  writeln ('Vvedite shirinu flaga');
  readln(m);
  repeat
    repeat
      write('-', ' ');
       j := j + 1;
    until(j = m);
    writeln();
  j := 0;
  i := i + 1;
 until(i = n);
end.

КОНСОЛЬ

Vvedite visotu flaga
5
Vvedite shirinu flaga
5
- - - - - 
- - - - - 
- - - - - 
- - - - - 
- - - - -