Hallo Sofa5000,
Vor der Ausgabe mit Writeln müsstest du überprüfen, ob i <> 0, sonst erzeugst du natürlich einen Fehler (Division durch 0).
Delphi-Quellcode:
var note,sum,i,x:integer;
begin
i:=-1;
sum:=0;
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.