Пожалуйста! решение задач! - Pascal

Формулировка задачи:

1.Найти все натуральные числа из промежутка от a до b,у которых количество делителей превышает заданное число K. 2.Найти все натуральные числа a,b и c из интервала от 1 до 20,для которых выполняется равенство a+b=C2(c в квадрате). 3.Дано натуральное число: а)найти количество цифр данного числа,больших A(A вводится с клавиатуры). б)верно ли,что данное число принадлежит промежутку от A до B и кратно 3,4 и 5(A и B вводятся с клавиатуры)? 4.Найти сумму всех чисел из промежутка от A до B ,кратных 13 и 5(A и B вводятся с клавиатуры). 5.Найти все симметрические натуральные числа из промежутка от A до B (A и B вводятся с клавиатуры). Можно использовать только самые простые операторы, чтобы учитель ничего не заподозрил. Хоть задачи и простые, но решить не могу, знания на нуле. Спасибо заранее!!!

Решение задачи: «Пожалуйста! решение задач!»

textual
                            Листинг программы 
                        

                            var
    a, b, c: Byte;
begin
    for a := 1 to 20 do
        for b := 1 to 20 do
            for c := 1 to 20 do
                if ((a + b) = Sqr(c))
                then
                    WriteLn(a, ' ', b, ' ', c);
end.
                        