TP3/Resources/TPLESSN2/PROG14.PAS

PROGRAM PROG14;
{$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.

    New Topics:  Procedure declaration
                 Using procedures
                 Using parameters
                 Counter with error checking

}

VAR
  Count, Adjusted_Count  : Integer;
  I, J, K                : Integer;

PROCEDURE Add(No_1, No_2 : Integer; VAR Sum : Integer);

BEGIN
  Sum := No_1 + No_2;
END;

BEGIN
  Write('Enter count: ');
  ReadLn(Count);
  Add(2, Count, Adjusted_Count);
  WriteLn('Adjusted Count is: ',Adjusted_Count);
END.