PASCAL FUNCTION DENGAN PARAMETER

program function_dg_parameter;
uses wincrt;
var
   c,d:integer; j:real;
function jumlah(a,b:integer; jum:real):real;
begin
    jum:=a+b;
    writeln('Jumlah A+B     =',jum:6:2);
end;
function pembagi(a,b:integer; bagi:real):real;
begin
    bagi:=a/b;
    writeln('Bagi A/B       =',bagi:6:2);
end;
function pengurang(a,b:integer; kurang:real):real;
begin
    kurang:=a-b;
    writeln('Bagi A-B       =',kurang:6:2);
end;
function perkalian(a,b:integer; kali:real):real;
begin
    kali:=a*b;
    writeln('Kali A*B       =',kali:6:2);
end;
begin
    write('Masukan Nilai A  : ');readln(c);
    write('Masukan Nilai B  : ');readln(d);
    jumlah(c,d,j);
    pembagi(c,d,j);
    pengurang(c,d,j);
    perkalian(c,d,j);
end.