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.