PROGRAM Average (Input, Output);

{ David Wills
  CSci 3102  U of Minnesota
  Winter 1994
  pc Pascal compiler }

{ This program reads two integers from the user and displays
  their average. }


VAR
  num1, num2 : Integer;
  avg : Real;


BEGIN
  Writeln('Input two integers: ');
  Readln(num1,num2);

  avg := (num1 + num2) / 2.0;

  Writeln('The average of ',num1, ' and ', num2, ' is ',avg);
END.