Задача 7 Урок 14.1

Задача 7 Урок 14.1:

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

- - - - - -
- - - - - -
- - - - - -
- - - - - -

- для вывода очередной строки используйте процедуру.

program u141z7;
var m,n: integer;

procedure p7(a,b:integer);
var i,j: integer;
begin
  for i:=1 to a do
  begin
    for j:=1 to b do
      write('- ');
    writeln();
  end;
end;

begin
  writeln('Vvedite N u M');
  readln(n); //кол-во строк
  readln(m); //кол во символов в строке
  p7(n,m);
readln();
end.