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.