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

Program n1;var i,a,temp: integer;begini:=111;for i:=100 to 999 do begintemp:=sqr(i mod 10)+sqr(i div 10 mod 10)+sqr(i div 100);if temp mod 13=0 then writeln(i);end;end.