Pemograman Pascal ada yang bisa ngubah hasilnya jadi nurun ga? ini kan mendatar dibuat menurun gitu ini scriptnya program deret_fibonacci; uses crt; var i,a,b,c

Pemograman Pascal
ada yang bisa ngubah hasilnya jadi nurun ga? ini kan mendatar dibuat menurun gitu
ini scriptnya

program deret_fibonacci;
uses crt;
var
i,a,b,c,d,e:longint;
z:char;
begin
repeat
clrscr;
writeln('Deret Fibbonaci');
writeln('===============');
writeln;
write('Masukan Jumlah deret :');readln(a);
write('Deret fibbonaci ',a,' Deret:');
for b:=1 to a do
begin
d:=0;
e:=1;
c:=0;
for a:=1 to b do
c:=c+d;
d:=d;
e:=e;
write(c:4); write('  ');
end;
readln;
write('handak lagi kah?  (y/n)');readln(z);
until upcase (z) <> 'Y';
readln;
end.

sekalian sama penjelasannya ya
sebelumnya terimakasih