pro-Gramas tu biblioteca de programacion

Este programita calcula en factorial de un numero utilizando procedimientos en pascal.

uses
 crt;
var
 contador,numero,factorial:longint;

procedure factorial(var n:integer);
 begin
  for contador:=1 to n do
    factorial:=factorial*contador;
  n:=factorial;
 end;

begin
 clrscr;
 Write('Numero: ');Realn(numero);
 factorial(numero);
 readkey;
end.

Este programa obtiene el aria de un triangulo utilizando procedimientos en pascal.

uses
 crt;
var
 resultado,base,altura:real;
procedure area(base,altura:real;var a:real);
 begin
  a:=(base*altura)/2;
 end;

procedure leer(var base,altura:real);
 begin
  write('base: ');readln(base);
  write('altura: ');readln(altura);
 end;

procedure res(final:real);
 begin
  Write(final:0:2);
 end;
begin
ClrScr;
 leer(base,altura);
 area(base,altura,resultado);
 res(resultado);
ReadKey;
end.