program prome04;
uses crt;
var
a,b,c,suma:integer;
pro:real;
{Programa para realizar el Promedio de tres números enteros
 introducido por el teclado. Por: Rafael Aquino }
begin
     clrscr;
     writeln (' Promedio de números enteros');
     writeln;
     write (' Introduzca primer número ');
     read (a);
     write (' Introduzca segundo número ');
     read (b);
     write (' Introduzca tercer número ');
     read (c);
     suma:= a + b + c;
     pro:= suma/3;
     writeln;
     writeln ('El promedio de los tres números es: ',pro:0:2 );
     readkey;
end.

program suma03;
uses crt;
var
a,b,suma:integer;
{Programa para realizar la suma de 2 números enteros
 introducido por el teclado. Por: Rafael Aquino }
begin
     clrscr;
     writeln (' Programa que suma Dos números enteros');
     writeln;
     write (' Introduzca primer número ');
     read (a);
     write (' Introduzca segundo número ');
     read (b);
     suma:= a + b;
     writeln;
     writeln ('La suma de ',a,' y  ', b, ' es: ',suma );
     readkey;
end.

program suma02;
uses crt;
var
a,b,suma:integer;
             {Programa para realizar la suma de 10 y otro número entero
                      introducido por el teclado. Por: Rafael Aquino }
begin
     clrscr;
     a:= 10;
     writeln (' Programa que suma el numero 10 y otro número');
     writeln;
     write (' Introduzca el otro número ');
     read (b);
     suma:= a + b;
     writeln;
     writeln ('La suma de 10 y ',b,' es: ',suma );
     readkey;
end.

program suma01;

uses crt;

var

a,b,suma:integer;

{Programa para realizar la suma de 10 y 5. Por: Rafael Aquino }

begin

     clrscr;

     a:= 10; b:=5;

     writeln (' Programa que suma los números 10 y 5');

     suma:= a + b;

     writeln ('La suma de 10 y 5 es:',suma );

     readkey;

end.

Reciban cordiales saludos...

Aquí colocaré los Algoritmos realizados en Pascal que utilicé
para encaminar al mundo de la programación a muchos jóvenes que participaron en mis cursos
de programación. Algunos inventados por mi y otros que conseguía en libros, guías, etc.
Muchos sirvieron a estudiantes de bachillerato, Newton, IUTIRLA, IUT y UNA
como apoyo para realizar sus trabajos.
Dedicado especialmente a todos
aquellos que, gracias a estos encuentros, entraron en este maravillo mundo.

Rafael Aquino