Prosedur Pascal

uses crt;

procedure hitung (a,b,c:byte);

begin

  c:= a*b;

  clrscr;

  writeln('PROGRAM PROSEDUR PENGHITUNGAN NILAI');

  writeln('===================================');

  writeln('Nilai A = ',a);

  writeln('Nilai B = ',b);

  writeln('Nilai C = ',c);

end;

var

x,y,z: byte;

begin

x:=3; y:=7; z:=9;

hitung(x,y,z);

  writeln;

  writeln('Nilai X = ',x);

  writeln('Nilai Y = ',y);

  writeln('Nilai Z = ',z);

readln;

end.

Logika Program 

Program ini dibuat  untuk penghitungan nilai, dengan procedure hitung a, b dan c.
dengan procedure hitung kedua yaitu x,y dan z .
procedure hitung pertama dan kedua mengunakan angka yang sama , tetapi ada pembeda yaitu dengan Nilai C , yang mana C aka menghasilkan nilai A*B.
begin kedua langsung dengan penentua tanpa penggunaan rumus yaitu x:=3 y:=7;z:=9;
dengan skrip diatas kemudian jalankan program.