Możecie mi podpowiedzieć co muszę zmienić, żeby poniższy program robił gwiazdki w odwrotnej kolejności?
np. dla 5
*
**
***
****
*****
program Lista2_Zad2;
{$APPTYPE CONSOLE}
uses
SysUtils;
procedure rzadek(ile: integer; znak: char);
begin
if ile>0 then
begin
rzadek(ile-1, znak);
write(znak)
end
end;
procedure trojkat(ileRz: integer; znak: char);
begin
if ileRz>0 then
begin
rzadek(ileRz, znak);
writeln;
trojkat(ileRz-1, znak)
end
end;
var
n:integer;
begin
writeln('Podaj N:');
readln(n);
trojkat(n, '*');
readln
end.