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

Uses crt; var i,k,a,b,c,d,sum: longint; begin for i: =1000 to 9999 do begin a: =i mod 10; b: =i div 1000; c: =i div 10 mod 10; d: =i mod 1000 div 100; sum: =sqr (a)+sqr (b)+sqr (c)+sqr (d); if (sum mod 2=0) or (sum mod 3=0) then inc (k); end; writeln (k); end.