Hilfe! Problem in Pascal!

[Dagon]

Dann versuchs mal so:

Delphi-Quellcode:

var note,sum,i:integer;

begin
  i:=-1;
  sum:=0;
  note := 1;
  while (note > 0) do begin
    writeln('Gib die Note ein'); ReadLn(note);
    sum:=sum+note;
    i:=i+1;
  end;
  if i > 1 then
    writeln(sum/i)
  else
    writeln('Keine Noten eingegeben.');
  ReadLn;
end.