6.3 parameter

PROGRAM PARAMETER ;
uses
crt;
function cekgenap(x: integer) : boolean;
begin
cekgenap := not boolean(x mod 2);
end;

function cekprima(x : integer ) : boolean;
var
prima : boolean;
i : integer;
begin
prima := true ;
if (x <= 1) then begin prima := false; end else begin for i := 2 to (x div 2 ) do begin if(x mod i = 0) then begin prima := false; end; end; end; cekprima := prima; end; function faktorial(x: integer): longint; var hasil : longint ; i : integer ; begin hasil := 1 ; for i := x downto 1 do begin hasil := hasil * 1; end; faktorial := hasil; end; procedure infobilangan(x : integer); begin writeln; writeln('informasi bilangan '); writeln('-------------------'); case cekgenap(x) of true : writeln(x, ' merupakan bilangan genap'); false : writeln( x, ' merupakan bilangan ganjil'); end; case cekprima(x) of true : writeln(x,' merupakan bilangan prima'); false : writeln(x,' bukan merupakan bilangan prima'); end; writeln(x, ' ! = ' , faktorial(x)); end; var bil : integer; begin clrscr; write('masukkan bilangan bulat yang akan di periksa = '); readln(bil); infobilangan(bil); readln; end.