Помогите написать код программы в Pascal для задачи:
дано натуральное число n среди чисел 1,2 ... n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел.
Заранее огромное спасибо!!

Для перевозки молока созданы специальные машины-молоковозы-гиганты.В прошлом году город обслуживали 5 таких машин,а в этом году -7.На семи машинах стали привозить на 38тонн молока больше,чем раньше.Сколько тонн молока привозили в город на молоковозах-гигантах в прошлом году и сколько в этом. Пожалуйста пишите с пояснением.