TURBO PASCAL

[SkuLLL]

Доброго времени суток! У меня имеется две задачи, которые я немогу решить, даже не единой мысли Надеюсь на вашу помощь. Заранее спасибо вам
1) Найти количество нечетных делителей натурального числа, больших К(К вводится с клавиатуры.
2)Найти все натуральные числа x,y, и z из интервала от 1 до 20, для которых выполняется равенство: x*(y*y)=z*z.

[Niro]

1)

for i:=k to натуральное число do
  if (i mod 2)<>0 and (натуральное число mod i)=0 then счетчик:=счетчик+1;

если я правильно понял