Задача 3 Урок 13.2

Задача 3 Урок 13.2

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

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

var b,a,i,j: integer;
begin
  writeln('Введите число M');
  readln(b);
  writeln('Введите число N');
  readln(a);
  i:=1;
  j:=1;
    while (i<=a) do
       begin
        while (j<=b) do
         begin
         if (j=1) or (j=b) or (i=1) or (i=a) then
           begin
           write('+')
           end
         else
           begin
            write('-')
           end;
           j:=j+1;
         end;
    writeln();
    i:=i+1;
    j:=1;
    end;
readln();
end.