Program Sample;

(* This program will read in two numbers, add them *)
(* together and print the numbers and their sum    *)

VAR
  Number1 : INTEGER; (* The first Number  *)
  Number2 : INTEGER; (* The second Number *)
  Sum     : INTEGER; (* The sum           *)

Begin

Readln(Number1,Number2);
Sum := Number1+Number2;
Writeln('The Sum of ',Number1,' and ',Number2,
         ' is ',Sum);

End.