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.