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.