Membuat Deret Fibonacci dengan Pascal

abdulmail - Membuat deret fibonacci dengan pascal

program DeretFibonacci;
uses crt;
var
i,n,f,f1,f2 : longint;
pil:char;
label A,B,C,D,E;

begin
A: clrscr;
textcolor(green);
writeln(' --------------------------------');
writeln(' MENAMPILKAN DERET FIBONACCI');
writeln(' --------------------------------');
textcolor(white);
write(' MASUKKAN SUKU KE- N (1-46) : ');readln(n);
if (n>46) or (n<1) then goto A;
if n=1 then goto B;
writeln;
writeln(' SUKU KE- 1 ADALAH = 1');
writeln(' SUKU KE- 2 ADALAH = 1');goto C;
B: writeln(' SUKU KE- 1 ADALAH = 1');
C: f1 :=1; f2:=1;
for i:=3 to n do
begin
f:=f1+f2;
writeln(' SUKU KE- ',i:2,' ADALAH = ',F);
f2:=f1; f1:=f;
end;
D: textcolor(white);writeln;writeln;
writeln(' --------------------------------');
write (' INGIN MENGULANG ?(Y/N)');readln(pil);
writeln;
begin
if (pil='Y') or (pil='y') then goto A
else
if (pil='N') or (pil='n') then goto E
else
textcolor(red+blink);
writeln(' PILIHAN HANYA Y / N , SILAKAN ULANG');
writeln;goto D;
E: textbackground(yellow);
writeln(' TERIMA KASIH ');
writeln(' ..............DELAY............');
delay(2000);
end;
end.

Koreksi ya..
Thx.