Задание
При каком наименьшем введенном числе d после выполнения программы будет напечатано 121?
var n, s, d: integer;
begin
readln\(d\);
n := 1;
s := 46;
while s <= 2700 do begin
s := s + d;
n := n + 4
end;
write\(n\)
end.