2

var
  i,a : integer;
begin
  i := 1;
  a := 3*i*i-100;
  while a <= 0 do
  begin
    i := i + 1;
    a := 3*i*i-100;

  end;
  writeln(a);
end.
//-97 -88 -73   3*i^2-100