PROGRAM PROCEDURE PARAMETER INPUT DAN OUTPUT

program parrameter_in_out;


uses wincrt;


var
   x,y : integer;


   procedure tambah_tiga (var a,b : integer);
   begin
        a := a+3;
        b := b+3;
        writeln('Nilai x dan y di akhir prosedur: ');
        writeln('a = ',a);
        writeln('b = ',b);
   end;
   
begin
     x := 15;
     y := 10;
     writeln('Nilai x dan y sebelum pemanggilan: ');
     writeln('x = ',x);
     writeln('y = ',y);
     tambah_tiga(x,y);
     writeln('nilai x dan y sesudah pemanggilan: ');
     writeln('x = ',x);
     writeln('y = ',y);
     
end.


Running program: