Будем называть количество делителей числа n его красотой. например, красота числа 12 равна 6. требуется написать программу, которая по числу k (1 ≤ k ≤ 109) найдет число с максимальной красотой, не превышающее k.

Program gt;
var k,t,max,i,h,j,l:integer;
begin
readln(k);
max:=0;
for i:=1 to k do
begin
l:=round(sqrt(i));
h:=0;
for j:=1 to l do
if(i mod j=0)then h:=h+1;
h:=2*h;
if(l*l=i)then h:=h-1;
if(h>max)then begin
max:=h;
t:=i;
end;
end;
writeln(t);
end.