Procedimientos en el lenguaje Pascal ( paso de parámetros )

program compartimentacio_procedural_amb_pas_de_parametres;

(* els paràmetres, en Pascal, es poden passar per valor o per variable *)

uses crt;

var aa,bb,result:real;
var i:integer;

procedure suma(a,b:real;var r+esultat:real);
  begin
    resultat:=a+b;
  end;

procedure multiplica(a,b:real;var resultat:real);
  begin
    resultat:=a*b;
  end;

procedure divideix(a,b:real;var resultat:real);
  begin
    resultat:=a/b;
  end;

procedure resta(a,b:real;var resultat:real);
  begin
    resultat:=a-b;
  end;

begin
  clrscr;
  writeln('entra dos operands reals ');
  readln(aa);readln(bb);
  writeln;

  writeln('1:sumar');
  writeln('2:multiplica');
  writeln('3:divideix');
  writeln('4:resta');
  writeln('0:sortir');

  readln(i);

  case i of
    1:suma(aa,bb,result);
    2:multiplica(aa,bb,result);
    3:divideix(aa,bb,result);
    4:resta(aa,bb,result);
    0:halt;
  end;

  write('el resultat de l'operació és:',result:4:2);

  repeat until keypressed;

end.