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}