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

uses sysutils;  // for IntToStr() function

var integer_from_keyboard: Integer ;
    number_of_integers_given: Integer = -1 ;
    mean_value: Real = 0 ;
    sum_of_integers: Integer = 0 ;

begin

   writeln( '' ) ;
   writeln( ' This program calculates the mean value of' ) ; 
   writeln( ' the integers that you enter from the keyboard.' ) ;
   writeln( ' Please, start entering numbers. The program' ) ;
   writeln( ' stops when you enter a zero.' ) ;
   writeln( '' ) ;

   repeat
      write( '   Enter an integer: ' ) ;
      read( integer_from_keyboard ) ;

      number_of_integers_given := number_of_integers_given + 1 ;
      sum_of_integers := sum_of_integers + integer_from_keyboard 
   until integer_from_keyboard = 0 ;

   if number_of_integers_given > 0 then
   begin
      mean_value := sum_of_integers / number_of_integers_given
   end ;

   writeln( '' ) ;
   writeln( ' The mean value is: ', FloatToStr( mean_value ) ) ;

   writeln( '' )
end.