Помогите пожалуйста!
Задана арифметическая прогрессия. 8,4; 6,2 … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала <0. На языке Паскаль надо

var a,s: real;     i: integer;begin  a:=8.4;  s:=a;  i:=1;  repeat     begin       a:=a-2.2;       s:=s+a;       i:=i+1;     end;   until s<0;  write('число слагаемых = ',i);end.