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

Урок 13.2

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

- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -  

var n, m, i, j: integer;
    b: boolean;

begin
  i := 0;
  j := 0;
  b := true;
  writeln ('Vvedite visotu flaga');
  readln(n);
  writeln ('Vvedite shirinu flaga');
  readln(m);
  while(i < n) do
  begin
    while(j < m) do
    begin
      if (b) then
        write('-', ' ')
      else if (not b) then
        write('+', ' ');
       j := j + 1;
    end; 
    writeln();
  j := 0;
  b := not b;
  i := i + 1;
  end;
end.

КОНСОЛЬ

Vvedite visotu flaga
5
Vvedite shirinu flaga
6
- - - - - - 
+ + + + + + 
- - - - - - 
+ + + + + + 
- - - - - -