program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var Anzahl,x,Summe:integer;
        Durchschnitt: real;

begin
while x>=0 do
begin
writeln('Bitte die naechste Zahl eingeben!');
readln(x);
if x >= 0 then
begin
Anzahl:=Anzahl+1;
Summe:=Summe+x;
end
end;
Durchschnitt:=Summe/Anzahl;
writeln(Anzahl);
writeln(Durchschnitt :0:2);
readln;
end.
(für die Kleinkinder, die nichts alline können :D)