9.1, Średnia arytmetyczna

uses crt;
var
        liczba, zapis, ilosc:integer;
begin
        clrscr;
        liczba:=1;
        zapis:=0;
        writeln('Podaj ciag liczb (conajmniej dwie) by wyliczyc z nich srednia arytmetyczna');
        writeln('Aby zakonczyc wpisywanie liczb napisz 0');
        writeln;
        while (liczba > 0) do
                begin
                        ilosc:=ilosc+1;
                        write('Liczba nr ', ilosc, ': ');
                        readln(liczba);
                        zapis:=liczba+zapis;
                end;
        ilosc:=ilosc-1;
        writeln;
        writeln('Przerwanie podawania liczb');
        writeln('Srednia arytmetyczna to ', zapis/ilosc:2:2);
        readln;
end.