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

program beauty;

var k, f, max, num, i, m: integer;

begin

write ('Введите целое число: ');

read (k);

max : = 0;

for m : = 1 to k do

begin

f : = 0;

for i : = 1 to m do

if m mod i = 0 then f : = f + 1;

if f>max then

begin

max : = f;

num : = i;

end

end;

writeln ('Красота числа ', num, ' равна ', max)

end.