(*  Game.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 Game ;

uses sysutils;  // for IntToStr() function

var given_integer: Integer ;
    winning_integer: Integer ;

begin

   writeln( '' ) ;
   writeln( ' This program is a computer game.' ) ;
   write( ' Please, type in an integer : ' ) ;

   read( given_integer ) ;

   winning_integer := given_integer + 1 ;

   writeln( '' ) ;
   write( ' You typed in ' + IntToStr( given_integer ) + '.' ) ;
   writeln( ' My number is ' + IntToStr( winning_integer ) + '.' ) ;
   writeln( ' Sorry. You lost. I won. The game is over.' ) ;
   writeln( '' )
end.


(* Notes:

   I have used above the IntToStr() function.

   It is also possible to output an Integer by writing
     write( given_integer ) ;

   Or you can even write
     write( ' You typed in ', given_integer, '.' ) ;
*)