Basic Pascal Tutorial/Chapter 2/Solution/de

(* Author:    Tao Yue
   Date:      19 June 1997
   Description:
      Ermittlung der Summe und des Durchschnitts von fünf vordefinierten Zahlen
   Version:
      1.0 - original version
      2.0 - Daten von der Tastatur einlesen
*)

program SumAverage;

const
   NumberOfIntegers = 5;

var
   A, B, C, D, E : integer;
   Sum : integer;
   Average : real;

begin    (* Main *)
   write ('Gib die erste Zahl ein: ');
   readln (A);
   write ('Gib die zweite Zahl ein: ');
   readln (B);
   write ('Gib die dritte Zahl ein: ');
   readln (C);
   write ('Gib die vierte Zahl ein: ');
   readln (D);
   write ('Gib die fünfte Zahl ein: ');
   readln (E);
   Sum := A + B + C + D + E;
   Average := Sum / 5;
   writeln ('Anzahl der Ganzzahlen = ', NumberOfIntegers);
   writeln;
   writeln ('Nummer1:', A:8);
   writeln ('Nummer2:', B:8);
   writeln ('Nummer3:', C:8);
   writeln ('Nummer4:', D:8);
   writeln ('Nummer5:', E:8);
   writeln ('================');
   writeln ('Summe:', Sum:12);
   writeln ('Durchschnitte:', Average:10:1);
end.