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

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

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

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

var i, k,  M, N: integer;
begin
  writeln('vvedi shiriny');
  readln(M);
  writeln('vvedi visota');
  readln(N);
  k := 1;
  while(k <= N) do
    begin
      i := 0;
      while(i < M) do
        begin
          if((k mod 2) = 0) then
            write('+')
          else
            write('-');
          i := i + 1;
        end;
      writeln();
      k := k + 1;
    end;
  readln();
end.