Помогите с олимпиадой по информатике) очень прошу))
Var A, B, C, N : integer; begin readln (a); readln (b); readln (c); n:=0; while (a+b*n begin n:=n+1; end; n:=n-1; writeln(n); end.