Сколько разных значений числа d можно ввести, чтобы после исполнения программки

Сколько разных значений числа d можно ввести, чтобы после выполнения программки было написано 69?

var n, s, d: integer;
begin
readln(d);
n := 14;
s := 29;
while s lt;= 2000 do begin
s := s + d;
n := n + 5
end;
write(n)
end.