PROGRAM PEMBAGIAN MENGGUNAKAN FUNGSI

program fungsi;


uses wincrt;


var
   bil1, bil2 : integer;


   function bagi(a,b : integer): real;
   begin
        bagi := a/b;
   end;


begin
     write('masukkan bilangan 1: '); readln(bil1);
     write('masukkan bilangan 2: '); readln(bil2);
     writeln(bil1,' / ',bil2, ' = ',bagi(bil1,bil2):0:2);
end.