Program Pembantu *Prosedur*

Program TestNilai;
uses wincrt;
var
x,y : integer;

Procedure NoEffect (x,y : integer);

begin
x:= y;
y:= 0;
writeln(x,y);
end;

begin
x := 1;
y := 2;
writeln(x,y);
NoEffect(x,y);
end.

Categories: DDPK