Помогите решить задачи

[юлёк fomik]

Помогите решить задачи

Вводится последовательность чисел, признаком окончания ввода число 999.
1)Найти кол-во чисел;
2)найти кол-во положительных и отрицательных чисел;
3)найти кол-во 0;
4)Средние арифм. всех чисел;
5)Средние арифм. положительных и отрицательных;
6)максимальное и минимальное число;

 

[юлёк fomik]

ну помогите кто-нибудь!)

 

[shrek=)]

var
c,k,k_p,k_o,max,min,kn:integer;
sa,sa_p,sa_o:real;
begin
min:=1000;
max:=-1000;
k:=0;
k_p:=0;
k_o:=0;
sa:=0;
sa_p:=0;
sa_o:=0;
while c<>999 do begin
write('Input  ');
readln (c);
inc(k);
sa:=sa+c;
if c<0 then begin inc(k_o); sa_o:=sa_o+c; end
else if c>0 then begin inc(k_p); sa_p:=sa_p+c; end else inc(kn);
if c>max then max:=c;
if c<min then min:=c;
end;
sa:=sa/k;
sa_o:=sa_o/k_o;
sa_p:=sa_p/k_p;
writeln ('кол-во чисел=',k:3,'кол-во отрицательных=',k_o:3,'кол-во положительных=',k_p:3);
writeln ('Средние арифм. всех чисел=',sa:3,'Средние арифм. положительных=',sa_p:3,'Средние арифм. отрицательных=',sa_o:3);
writeln ('Максимальное число=',max);
writeln ('Минимальное число=',min);
readln
end.

 

[юлёк fomik]

Спасибо огромное!)_