pro-Gramas tu biblioteca de programacion

En el siguiente ejemplo vamos a intercambiar dos números utilizan do una variable auxiliar.

program intercambio;   {nombre del programa}
uses
    crt;
var
   a,b,c:integer;      {asignacion de variables}
begin                  {cuerpo del programa}
     clrscr;           {borra la pantalla}
     gotoxy(20,3);
     write('Escrba un numero, este es = a: ');  {muesestra en pantalla
                                              lo que esta en comillas}
     readln(a);        {pide un valor}
     gotoxy(16,4);
     write('Escriba un segundo numero, este es = b: '); {muestra en pantalla
                                                    lo que esta en comillas}
     readln(b);        {pide otro valor}
     c:=a;             {dice que c=a}
     a:=b;             {dice que a=b}
     b:=c;             {dice que b=c}
     gotoxy(27,5);
     writeln('"a" es igual a: ',a);  {muestra lo que esta en
                                      comillas y el valor de b}
     gotoxy(27,6);
     writeln('"b" es igual a: ',c);   {muestra lo que esta en
                                      comillas y el valor de c}
     readln;           {se queda pidiendo un valor}
end.                   {termina el programa}