Почему не выдает числа? uses crt; 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.

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.