Урок 13.2 Задание 1

Задание 1 Урок 13.2

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

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

var m , n: integer;
begin
m:=1;
repeat
  n:=1;
    repeat
      write('- ');
      n:=n+1;
    until (n>8) ;
  m:=m+1;
  writeln();
until (m>8);
readln();
end.

Консоль:

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