PROGRAM PROCEDURE DAN FUNGSI PADA BIL.PRIMA,BIL.FIBONANCI DAN BIL.FAKTORIAL

program ujicoba;
uses wincrt;
var
  n, a,i,j,nomormenu,fak,x: integer;
  l:char;
  procedure prima;
  var
     x: integer;
  begin
  write ('masukkan nilai x :');read(x);
  if (x = 1) or (x = 2) or (x = 3)then
            write ('prima')
         else
         if (x mod 2 <> 0) and (x mod 3 <> 0) then
            write ('prima')
         else
         write ('bukan prima');
  end;

  procedure fibonanci;
  var
    i, n,j,a : integer;
  begin
  write ('masukkan nilai n:');read(n);
  write ('masukkan batas awal a:');read(a);
  j := 0;
  for i := 1 to n do
  begin
  j := j + a;
  a := j - a;
  write (j,',');
  end;
  end;

  function faktorial (fak,a,n : integer): integer;
  begin
  write ('masukkan nilai n:');read(n);
  write ('masukkan batas suka:');read(n);
  fak :=1;
  for a := 1 to n do
  begin
  fak := fak * a;
  write (fak,',');
  end;
  end;

   
begin
repeat
clrscr;
writeln('PROGRAM CAMPURAN');
writeln ('1: program bilangan prima:');
writeln ('2: program bilangan fibonansi');
writeln ('3: program bilangan faktorial');
write('pilih program :');readln(nomormenu);
clrscr;
case nomormenu of
     1: prima;
     2: fibonanci;
     3: faktorial(fak,a,n);
end;
writeln;
writeln ('jalan lagi? (y/n)');readln(l);
until upcase (l) = 'y';
end.