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

что такое sqr?

Квадрат. можно написать (i div 100)*(i div 100)

var i:integer;beginfor i:=100 to 999 do if sqr(i div 100) = i div 10 mod 10 + i mod 10  then writeln(i);end.Результат:101110204213222231240309318327336345354363372381390479488497