При каком наибольшем введенном числе d после выполнения программы будет напечатано 150?var n, s, d: integer;Beginreadln(d);n := 3;s := 38;while s <= 1200 do begins := s + d;n := n + 7end;Write(n)End.