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 p:integer;
    k:integer;
{---------------}
begin
 k:=0;
 
 repeat
 inc(k);
 p:=pow(k,4);
 until p>1500;
 
 writeln('K= ',k);
 
 readln;
end.