помогите решить задачи 8 класс по информатике!решаются они через турбо Паскаль. 

1)Найти колличество нечетных делителей натурального числа,больших К(К вводятся с клавиатуры).

2)Найдите все натуральные числа х,у,z из интервала от 1 до 20,для которых выполняется равенство : ху(квадрат)=z(квадрат)

СРОЧНО НАДОО ПОМОГИТЕ!

var s:integer;i,k:longint;beginreadln(k);i:=3;while i<k-1 do begini:=i+2;if k div i=k/i then inc(s);end;writeln(s,' delitelei');end.

var i,j:integer;

begin

for i:=1 to 20 do

for j:=1 to 20 do

if sqr(j)*i<20 then writeln('x=', i,' y=', j,' z=', sqr(j)*i);

end.