Пожалуйста, напишите программу
Ввести два натуральных числа N и M . Если M > N , то вывести
M − N строк, в каждой строке выводятся числа от N до M число раз,
соответствующее выводимому числу. Например, для N = 3 и M = 6:
3 3 3
4 4 4 4
5 5 5 5 5
6 6 6 6 6 6

var m,n,i,j:longint;beginreadln(n,m);if m > n then beginfor i:= n to m do beginfor j:= 1 to i do beginwrite(i,' ');end;writeln;end;end else beginfor i:= m to n do beginfor j:= 1 to i do beginwrite(i,' ');end;writeln;end;end;end.