ssss

PROGRAM KIKI_UAS;
USES CRT;
VAR
        F : ARRAY[1..50] OF INTEGER;
        X : INTEGER; <<ganti ya boss variavblenya
        Y : INTEGER; <<ganti ya boss variavblenya
        I : INTEGER; <<ganti ya boss variavblenya
        O : INTEGER;  <<ganti ya boss variavblenya
FUNCTION FIBO (N : INTEGER) : INTEGER;
BEGIN
        IF (N = 1) OR (N = 2) THEN FIBO := 1
        ELSE
        FIBO := FIBO(N-1)+FIBO(N-2)
        END;
BEGIN
clrscr;
        WRITE('SUKU KE :');
        READLN(Y);
        WRITE('SAMPAI SUKU KE:');
        READLN(X);
        WRITELN;
        WRITELN('DERET FIBONACCI :');
        FOR O := 0 TO Y DO
        WRITELN;
        FOR I := 1 TO X DO
        BEGIN
        F[I] := FIBO(I);
        WRITE(F[I],'');
        END;
        WRITELN;
        WRITELN;
        WRITELN('JUMLAH DERET FIBONACCI DARI ',I,' SUKU ADALAH :',F[I]+F[O]);
        READLN;
        END.