program hitung pascal

Contoh program procedure hitung yang diajarkan dosen saya hari ini

Procedure Hitung2(A,B,C:integer);
Begin
         C:=A+B;
         A:=A+2;B:=B+4;
        Writeln ('Nilai A=',A, 'Nilai B=',B, 'Nilai C=',C);
End;
Var X,Y,Z:integer;
Begin
Write('Masukkan Nilai X,Y,Z=');readln(X,Y,Z);
Hitung2(X,Y,Z);
Writeln('Nilai X=',X, 'Nilai Y=',Y, 'Nilai Z=',Z);
End.