Паскаль программа не завершается
Var s, n, d, i: integer;
begin
for i:=-10000 to 10000 do begin
d:=i;
s:=15;
n:=10;
while s<=2400 do begin
s:=s+d;
n:=n+5;
end;
if n=50 then writeln(i);
end;
end.
она должна выводить все i, при которых n=50, но при запуске получается просто бесконечная программа.