Program fibonacci ( PASCAL) Repeat Until

program DeretFibonacci;
uses crt;
var
i,n,f,f1,f2 : longint;
pil:char;

begin
repeat
clrscr;
write(' MASUKKAN SUKU KE-N : ');readln(n);
f1 := 1;
f2 := 1;

if (n = 1) then
begin
writeln(' SUKU KE-1 ADALAH = 1');
end
else
begin
writeln(' SUKU KE-1 ADALAH = 1');
writeln(' SUKU KE-2 ADALAH = 1');
end;

for i:=3 to n do
begin
f:=f1+f2;
writeln(' SUKU KE-',i,' ADALAH = ',f);
f2:=f1;
f1:=f;
end;

write (' INGIN MENGULANG ?(Y/T)');readln(pil);
until pil = 't';
end.

Tampilan :

THANKS to AGUSTINUS RAHMAT SIJABAT

http://www.facebook.com/agustinusclairvoyant

=============================END=====================================