Урок 14 задача 4

Урок 14 задача 4

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

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

-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.

program project1;
var m,n,i,j:integer;

function flag(i,j:integer):integer;
begin
    while(j<n)do
    begin
      j:=j+1;
    if(i mod 2=0)then
      write('+')
    else
      write('-');
    end;
end;

begin
  i:=0;
  j:=0;
  write('Введите M: '); readln(m);
  write('Введите N: '); readln(n);
  while(i<m)do
  begin
    i:=i+1;
    flag(i,j);
    writeln();
    j:=0;
  end;
  readln();
end.