(*  Sums.pas Copyright (c) Kari Laitinen

    http://www.naturalprogramming.com/

    2016-02-19 File created.
    2016-02-19 Last modification.

    This Pascal program has been tested in Windows with
    a compiler downloaded from www.freepascal.org
*)


program Sums ;

procedure print_sum( first_integer_from_caller,
                     second_integer_from_caller : Integer ) ;
var calculated_sum: Integer ;
begin
   calculated_sum := first_integer_from_caller + second_integer_from_caller ;

   writeln( '' ) ;

   writeln( ' The sum of ', first_integer_from_caller, ' and ',
            second_integer_from_caller, ' is ', calculated_sum, '.' ) 
end ;
                                

var first_integer, second_integer : Integer ;

begin

   print_sum( 555, 222 ) ;

   writeln( '' ) ;
   writeln( ' As you can see, this program can print' ) ;
   writeln( ' the sum of two integers. Please, type in' ) ;
   writeln( ' two integers separated with a space.' ) ;
   writeln( '' ) ;
   write( '    ' ) ;

   read( first_integer, second_integer ) ;

   print_sum( first_integer, second_integer ) ;

   writeln( '' )

end.