Среди всех натуральных четырехзначных чисел подсчитать количество таких, сумма квадратов цифр, которых кратна двум или трем. Ответ дайте целым числом

Var

i, s, k, n: integer;

begin

for i : = 1000 to 9999 do begin

n : = i;

s : = 0;

while n > 0 do begin

s : = s + (n mod 10) * (n mod 10) ;

n : = n div 10;

end;

if (s mod 2 = 0) or (s mod 3 = 0) then begin

k : = k + 1;

writeln (i, ' ', s) ;

end;

end;

writeln (k) ;

end.