надо подсказать - спроси совета. тут врятли кто-то весь код напишет.(это так, на будущее).
Алгоритм: проход по числам от 10 до 99 и проверяем сумму квадратов.
Код:
for i:= 1 to 9 do
for j:=0 to 9 do
//любые проверки и вычисления; i - старший разряд, j - младший.