Сколько пар чисел нужно сложить чтобы сумма получилась больше 300? программа в паскале

151 и 151? или как ты имеешь ввиду?

                                              PascalABC.NET

begin

 var (x,y) := (0,0);

 while x < 300 do begin

   x+=y+y;

   y+=1;

   Print(x);

   end;

   writeln;

   Writeln('ответ: ',y);;

end.