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

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

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

var m,n,vertikal,gorizont: integer;
begin
  vertikal := 1;
  gorizont := 1;
  write('Введите количество знаков по горизонтали и количество знаков ');
  write('по вертикали, и нажмите ENTER: ');
  readln(m,n);
  while (vertikal <= n) do
  begin
    while (gorizont <= m) do
    begin
      if ((vertikal mod 2) = 0) then
        write('+ ')
      else
        write('- ');
      gorizont += 1;
    end;
    writeln();
    vertikal += 1;
    gorizont := 1;
  end;
  readln();
end.