PROGRAM PROCEDURE PERKALIAN DENGAN PARAMETER INPUT

program parrameter_in;


uses wincrt;


var
   x,y,hasil : integer;


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


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


Running program: