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

-----------------------

//Pascal
//Проверочная программа

var n,s,d: integer;
begin
d := 0;
while n <> 121 do
begin
n := 1; s := 46; d := d + 1;
while s <= 2700 do
begin
  s:=s+d;
  n:=n+4;
end;
  writeln(d, ' ',n);
end;
end.