Составьте программу которая выводит на экран из всех трёхзначных чисел, только те у которых квадрат первой цифры равен

Нам нужно написать программу,которая выводит на экран из всех трехзначных чисел,только те,у который квадрат первой цифры равен сумме двух остальных.Пишем программу:Pascal ABC.NETprogram qq;begin for var i:=100 to 999 do begin var d1:=i div 100; var d2:=(i div 10) mod 10; var d3:=i mod 10; if sqr(d1)=d2+d3 then Print(i) end; Printlnend.Программа написана.