PROGRAM PROCEDURE (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.