все монеты +50р за код на паскале

[Динар]

Задание

Код нужно написать именно через рекурсивную процедуру
P.S. для помощи кидаю код программы, которая выполняет необходимую задачу, но БЕЗ РЕКУРСИИ (надо с ней)

Program lab19;
 type mas = array[1..100] of integer;
 var n,i:integer;
 a:mas;
 
 procedure EZ(x:mas; var n:integer);
 var k,s,i:integer;
 begin
 for i:=1 to n do x:=i;
 s:=1;
 For i:=1 to n do begin
 for k:=s downto 1 do 
 write(x[k],' ');
 if s<>n then s:=s+1; writeln; 
 end;
 end;
begin
 writeln('введите кол-во строк');
 read(n);
 
 EZ(a,n); 
end. 

[chvpa]

То или нет не знаю

[Wolan-De-Morda]

что за хня

[3КК 777т добавляйся]

сверхy код скинyли. Только там фyнкция - в процедyрy ее переделать как нехрен делать.