помогіте с задачкой!, Використати цикли While і Repeat Опции

[Kroft]

Зклавіатури вводиться послідовність чисел, умова завершення число 0. Визначити середне арифметичне відємних чисел послідовності.

[Александр Сергеевич]

как вариант...

program chisla;
uses crt;
var
a,t,x:real;
k:integer;
begin
clrscr;
t:=0;
k:=0;
writeln('vvedite chislo:');
repeat
readln(x);
t:=t+x;
inc(k);
until x=0;
a:=t/k;
writeln('srednee arifm.posled.=',a);
readln;
end.