Среди всех натуральных четырехзначных чисел подсчитать количество таких, сумма…

Program zadacha; VAR i, t, s, d, o, k: Integer; Begin k: =0; For i: =1000 to 9999 do begin t: =i div 1000; s: =(i div 100) mod 10; d: =(i div 10) mod 10; o: =i mod 10; if (t*t+s*s+d*d+o*o) mod 2=0) and (t*t+s*s+d*d+o*o) mod 3=0) then k: =k+1; end; writeln (k); End. Ответ будет: 1716