Задание

При каком наименьшем введенном числе d после выполнения программы будет напечатано 63?

var n, s, d: integer;

BEGIN

readln(d);

n := 3;

s := 57;

while s <= 1200 do begin

s := s + d;

n := n + 4

end;

write(n)

END.