Program Addition;
{Program written by Philip Smith to add two numbers together}

Uses WinCrt;
Var         {Variables}
   Num_1:integer; {The first number}
   Num_2:integer; {The second number}

Begin
     GoToXY(22,2);       Writeln( 'Program written by Philip Smith' );   {Displays text}
     GoToXY(32,4);       Writeln( 'Addition Calculator' );               {Displays text}
     GoToXY(5,7);        Writeln( 'Enter First Number' );                {Displays text}
     GoToXY(28,7);       Readln( Num_1 );                                {Stores the first number}
     GoToXY(5,9);        Writeln( 'Enter Second Number' );               {Displays text}
     GoToXY(28,9);       Readln( Num_2 );                                {Stores the second number}
     GoToXY(8,13);       Write( 'The sum of your numbers is' );          {Displays text}
     GoToXY(37,13);      Write( Num_1 + Num_2 );                         {Adds the numbers together}
     Readln;                                                             {Pauses the program}

     DoneWincrt;
End.            {Ends the program}