Contoh Program Pascal Tanpa Parameter

program prosedu_tanpa_parameter;

uses wincrt;

var a,b : real;

procedure perkalian;

 var c : real; {variabel c merupakan variabel lokal yang hanya}

 begin         {berlaku diperosedur perklian}

  c:=a*b;

  writeln('nilai c ');

  writeln('selama menjalankan prosedur perkalian = ',c:4:2);

  end;

{program utama}

var c : real; {variabel c merupakan variabel lokal yang hanya berlaku di program utama}

 begin

  clrscr;

  a:=5.0;

  b:=10.0;

  c:=9.0;

   writeln('a + ',a:4:2);

   writeln('b + ',b:4:2);

   writeln;

   writeln('nilai c');

   writeln('sebelum menjalankan prosedur perkalian = ',c:4:2);

   perkalian;

   writeln;

   writeln('nilai c');

   writeln('sesudah menjalankan prosedur perkalian + ',c:4:2);

   writeln('axb = ',c:4:2);

   readln;

 end.