Procedure merubah parameter lokal menjadi global

Procedure Hitung (A,B,C : integer);
Begin
  C : = A + B; Writeln;
  Writeln (‘A = ’,A,‘B = ’,B,‘C = ’,C);
End;
Var
  X, Y, Z : integer;
Begin
  X := 2; Y := 3; Z := 0;
  Hitung (X,Y,Z);
  Writeln (‘X = ’,X,‘Y = ’,Y,‘Z = ’,Z)
End.