Задание 4 Урок 14

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

var n,m,main_counter: integer;
  character: char;


procedure  string_x(x: integer; y: char);
var procedures_counter: integer;
begin
  for procedures_counter := 1 to x do
    write(y, ' ');
end;

begin
  write('Введите значения N и M через пробел и нажмите ENTER: ');
  readln(n,m);
  for main_counter := 1 to m do
    begin
      if ((main_counter mod 2) = 0) then
        character := '+'
      else
        character := '-';
      string_x(n,character);
      writeln();
    end;
  readln();
end.