PASCAL FUNCTION TANPA PAARAMETER

program function_tanpa_parameter;

uses wincrt;

var

   a,b:integer;

   jum,bagi,kurang,kali:real;

function jumlah:real;

begin

    jum:=a+b;

end;

function pembagi:real;

begin

    bagi:=a/b;

end;

function pengurang:real;

begin

    kurang:=a-b;

end;

function perkalian:real;

begin

    kali:=a*b;

end;

begin

    write('Masukan Nilai A  : ');readln(a);

    write('Masukan Nilai B  : ');readln(b);

    WRITELN('_______________');

    jumlah;

    writeln('Jumlah A+B     =',jum:6:2);

    pembagi;

    writeln('Bagi   A/B     =',bagi:6:2);

    pengurang;

    writeln('Kurang A-B     =',kurang:6:2);

    perkalian;

    writeln('Kali   A*B     =',kali:6:2);

end.