Pascal/Turbo Pascal - modulos

{A ver si esto ayuda}

program area;

  uses

     crt;

  function vasetriangulo : real;

  var

    b : real;

  begin

     write('  Entre La Vase : ');

     readln(b);

     vasetriangulo := b;

  end;

  function alturatriangulo : real;

  var

    a : real;

  begin

      write('  Entre La Altura : ');

      readln(a);

      alturatriangulo := a;

  end;

  procedure resultado;

  var

    re : real;

  begin

      re := (vasetriangulo * alturatriangulo) / 2;

      writeln;

      writeln('  El Area Es : ',re:0:2);

      writeln;

      writeln('   Pulse [Enter]');

  end;

  begin

      clrscr;

      resultado;

      readln;

  end.