PROGRAM PROCEDURE PERKALIAN DENGAN PARAMETER OUTPUT

program parrameter_out;


uses wincrt;


var
   x,y,hasil : integer;


   procedure kali(a,b : integer; var c : integer);
   begin
        c := a*b;
   end;


begin
     write('masukkan x: '); readln(x);
     write('masukkan y: '); readln(y);
     kali(x,y,hasil);
     writeln(x, ' * ',y,' = ', hasil);
end.


Running program: