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

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

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

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

var a,b: integer;
begin
a:=1;
b:=1;
  while(a<=4) do begin
    while(b<=6) do begin
      if(a=1) or (a=4) or (b<=1) or (b>=6)then begin
         write('+ ');
      end
      else begin
         write('- ');
      end;
      b:=b+1;
    end;
    writeln();
    a:=a+1;
    b:=1;
  end;
readln();
end.