PASCAL SAMPLE FIBONACCI

program ganjilgenap;
uses crt;
var
n,x,y,z,jum,jum1,jum3,n1,n2,n3:integer;
begin
clrscr;
writeln('-----Menghitung deret bilangan-----');
writeln('-----------------------------------');
writeln;
      write('Masukkan banyak bilangan = ');
      readln(n); writeln;
      write('Deret bilangan genap : ');
      jum:=0; y:=0;
      FOR  x:=1 TO  n DO
          BEGIN
             write(y,' ');
             jum:=jum+y;
             y:=y+2;
          END;
          writeln;
      writeln('Total bilangan GENAP = ',jum) ; writeln;
      write('deret bilangan ganjil : ');
      jum1:=0; z:=1;
      FOR  x:=1 TO  n DO
          BEGIN
             write(z,' ');
             jum1:=jum1+z;
             z:=z+2;
          END;
      writeln;
      writeln('Total bilangan GANJIL = ',jum1);
writeln;
writeln('Khusus bilangan fibonacci, masukkan : ');
write('Nilai awal 1 = ');readln(n1);
write('Nilai awal 2 = ');readln(n2);
writeln;
write('deret bilangan fibonacci : ',n1,' ',n2,' ');
jum3:=n1+n2;
FOR x:=1 TO n-2 DO
BEGIN
  n3:=n1+n2;
  write(n3,' ');
  n1:=n2;
  n2:=n3;
  jum3:=jum3+n3;
END;
writeln;
writeln('Total bilangan FIBONACCI = ',jum3);
readln;
END.