pro-Gramas tu biblioteca de programacion

En el siguiente script muestra como elevar un numero al cubo en pascal.

Program num_cubo;    {nombre del programa}

uses

    crt;

var

   a:real;           {asignacion de variables}

begin                {cuerpo del programa}

     clrscr;         {borra la pantalla}

     gotoxy(25,3);

     write('escribe un numero ');  {muestra en pantalla lo

                                    que esta en comillas}

     readln(a);      {pide un valor}

     gotoxy(20,4);

     writeln('el cubo de ',a:5:2,' es ',a*a*a:6:4); {muestra lo

                       que esta en  comillas y el valor de b}

     readln;         {se queda pidiendo un valor}

end.                 {termina el programa}

Este programa obtiene el aria de un triangulo  en el lenguaje pascal.

program area_triangulo;   {nombre del programa}
uses
    crt;
var
   a, b, c:real;         {asignacion de variables}
begin                     {cuerpo del programa}
     clrscr;              {borra la pantalla}
     c:=2;                {dice que c=a}
     gotoxy(20,3);
     write('¨Cual es la base del triangulo? '); {muestra
	              en pantalla lo que esta en comillas}
     readln(a);           {pide un valor}
     gotoxy(20,4);
     write('¨Cual es la altura de triangulo? '); {muestra
	               en pantalla lo que esta en comillas}
     readln(b);           {pide un valor}
     clrscr;
     gotoxy(18,3);
     writeln('El area del triangulo es: ',(a*b)/c:8:3); {muestra 
                         lo que esta en comillas y el valor de b}
     readln;           {se queda pidiendo un valor}
end.                   {termina el programa}