Помогите решить задачу по информатике, pascal:

1)вывести все четверки Пифагоровых чисел от 1 до 50
Четверки ( а в квадрате + в в квадрате + с в квадрате= d в квадрате)
2) ввести челое число вывести кол-во его делителей
3)ввести 2 целых числа вывести сообщение у какого из них делителей больше