Найдите количество троек естественных чисел X,Y,Z на интервале [10; 5000], которые

program zz1; // в связи с тем, что в решении для перебора употребляется вложенные циклы, программа будет работать длинно
var x,y,z:integer; // задаем переменные
begin
for x:=10 to 5000 do // организуем три вложенных в друг друга цикла для перебора всех чисел от 10 до 5000
for y:=10 to 5000 do
for z:=10 to 5000 do
if (x lt; y) and (z mod 10 = 5) and (x*x+y*y=z) // проверяем заданные условия
then writeln(x=,x, y=,y, z=,z); // выводим ответ
end.