Вы в интернете посмотри готовое домашнее задание класс и писателя книги. там найдете
1 сентября 1985 года информатика стала обязательным предметом во всех образовательных школах а до этого в 1959 году она стала преподаваться в нескольких школах Москвы и Новосибирска
Var i:integer;
begin
for i:=100 to 999 do
if i=sqr(i div 100)*(i div 100)+sqr((i div 10)mod 10)*((i div 10) mod 10)+
sqr(i mod 10)*(i mod 10) then writeln(i)
end.