Запишите через запятую наименьшее и наибольшее значение числа d, которое необходимо

Запишите через запятую наименьшее и наивеличайшее значение числа d, которое нужно ввести, чтоб после исполнения программки было написано 153?
var n, s, d: integer;
begin
readln(d);
n := 33;
s := 4;
while s lt;= 1725 do begin
s := s + d;
n := n + 8
end;
write(n)
end.