Pascal - Program Deret Fibonacci ( Iteratif )

Program Deret Fibonacci ( Iteratif ) menggunakan bahasa Pascal

program Fibonacci_Iteratif;
{Buatlah program deret fibonacci dengan batas sejumlah N.
 Contoh : N = 5, maka Output : 0, 1, 1, 2, 3. Program ini dibuat oleh
 SRI WAHYUNI-1400018214 pada tanggal 08 JUNI 2015 dengan SEJUJUR-JURURNYA.}

uses crt;

procedure fibonacci( N : integer);
var
   U1, U2, U3, i : integer;
begin
    U1 := 0;
    U2 := 1;
    for i := 1 to N do
    begin
        U3 := U1 + U2;
        if (i=1) then
        begin
           write(U1);
        end
        else
        begin
             if (i=2) then
             begin
                write(', ',U2);
             end
             else
             begin
                  write(', ',U3);
                  U1 := U2;
                  U2 := U3;
             end;
        end;
    end;
end;

var
   a : integer;
begin
writeln('=========================================');
writeln('|   PROGRAM DERET FIBONACCI(ITERATIF)   |');
writeln('|             SRI WAHYUNI               |');
writeln('|             1400018214                |');
writeln('|           <08 JUNI 2015>              |');
writeln('=========================================');
writeln(' ');

write('Masukkan batas : ');
readln(a);
write('Deret Fibonacci : ');
fibonacci(a);

end.


Hasil Compile :