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

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

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

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

program U13_2Z1;
var m,n,i,j: integer;
begin
  i:=1;
  j:=1;
  writeln('vvedite dlinu flaga');
  readln(m);
  writeln('vvedite shirinu flaga');
  readln(n);
  while (j<=n) do
    begin
      while (i<=m) do
        begin
          if ((j mod 2)=0) then
            write('+ ')
          else
            write('- ');
          i:=i+1;
        end;
    j:=j+1;
    i:=1;
    writeln();
    end;
  readln();
end.