Pascal/Turbo Pascal - Procedure

{Tu programa seria así}

program cuenta;

uses

  crt;

 const

    micuenta : real = 600;

  var

    ingres : real;

    saldo  : real;

  Procedure ingreso(var saldo : real; ingreso : real);

  Begin

    if (ingreso > 0) then

     saldo := micuenta + ingreso

   else (* Se resta comision por numeros rojos *)

     saldo := (micuenta + ingreso) - 3 ;

   End;

  begin

     clrscr;

     ingres := 500;

     ingreso(saldo,ingres);

     writeln('Su saldo es ahora de  ', saldo:0:2, ' euros');

     readln;

  end.

program intercambio;

var

saldo:real;

ingreso:real;

Procedure swap(var x,y:real);

var

aux: real;

begin

aux:=y;

y:=x;

x:=aux;

end;

begin

	saldo := 600;					(* Valores iniciales: se pueden pedir al usuario *)

	ingreso := 500;

	writeln('Antes de intercambio: saldo= ', saldo:0:2, ' ingreso= ', ingreso:0:2);

	Swap(saldo, ingreso);

	writeln('Despues de intercambio: saldo= ', saldo:0:2, ' ingreso= ', ingreso:0:2);

	readln;

end.