Задача 4 Урок 14. Процедуры и функции

Урок 14. Процедуры и функции

{14 — 4 Составьте программу, которая выводит на экран прямоугольный флаг N×M вида
(с чередованием плюсов и минусов в строках):
- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -
для вывода очередной строки используйте подпрограмму,
принимающую на вход нужные агрументы.}

var width,height,i,j: integer;
procedure strip(x: char);
  begin
    for j:=1 to width do
      write(x);
    writeln();
  end;
begin
  width:=32;
  height:=6;
  for i:=1 to height do
    if (i mod 2 = 0) then
          strip('+')
        else
          strip('-');
  readln();
end.

//--------------------------------
//++++++++++++++++++++++++++++++++
//--------------------------------
//++++++++++++++++++++++++++++++++
//--------------------------------
//++++++++++++++++++++++++++++++++