Напишите программу, которая принимает с клавиатуры целое число и проверяет, на какое количество двузначных чисел оно делится. Результат проверки класс должен вывести на экран вместе с соответствующим текстовым сообщением.

на паскаль var i,j,k:longint; begin read(i); if i < 10 then write('Число меньше 10. Поэтому оно не имеет двузначный делитель'); for j:=10 to 99 do if i mod j=0 then inc(k); if k=0 then write('Ваше число не имеет двузначный делитель') else write('Ваше число имеет ',k,' делителей'); end.