арифметическая прогрессия

[druger]

задана арифметическая прогрессия. известны первые 2 элемента-они отрицательны(-302, -288). сколько элементов нужно сложить чтобы сумма стала положительной.
помогите решить на паскале

[maxwallaby]

Немножко усложнил, но думаю и так сгодится:

program a2;
uses crt;
var a,b,s,i,y: integer;
begin  clrscr;
writeln('Please write 1st and 2nd elements of progression: ');
readln(a,b);
s:=b-a; i:=0; y:=a;
if y<0 then
 begin
  while y<0 do
   begin
    y:=y+s; i:=i+1;
   end;
   writeln('You need ',i,' actions to make your progression positive.');
 end
 else writeln('Please try again.');
readkey
end.

[druger]

Большое спасибо