Zrobilem
....tak
program Zadanie1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,x,suma,ile:integer;
srednia:real;
begin
writeln('Obliczanie sredniej n-liczb naturalnych');
writeln;
writeln;
writeln('Podaj ciag liczb naturalnych zakonczony zerem: ');
writeln;
ile:=0;
x:=0;
repeat
readln(a);
suma:=x+a;
x:=suma;
ile:=ile+1;
until a=0;
srednia:=x/(ile-1);
writeln;
writeln(srednia:8:2);
readln
end.