Задача 1 урок 13.2

Задача 1 урок 13.2

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

var m,n: integer;
begin
m:=6;
n:=4;
repeat
    repeat
        write('- ');
        m-=1;
    until(m<1);
    m:=6;
    n-=1;
    writeln();
until(n<1);
end.