Определить максимальное целое число n , удовлетворяющее условию 3n² — 730n меньше 5 — Pascal(Паскаль)

program PascalGuru;

function pow(x, n: integer): integer;
var
  i, r: integer;
begin
  r := x;
  for i := 1 to n - 1 do
    r := r * x;
  pow := r;
end;

var
  n, rez, answer: integer;

begin

  for n := 1 to 300 do
  begin
    rez := (3 * pow(n, 2)) - (730 * n);
    if rez < 5 then
      answer := n;
  end;

  writeln('Otvet: max N= ', answer);

  readln;

end.