Сколько троек чисел x, y, z от 1 до 100 удовлетворяют условию "x + y + z делится на 17"? будем считать тройки, получаемые перестановкой чисел, различными. например, (1, 2, 3) и (2, 1, 3) — это разные тройки

Var
   x,y,z:byte;
   k:integer;
Begin
k:=0;
For x:= 1 to 100 do
    For y:= 1 to 100 do
        For z:= 1 to 100 do
            if (x+y+z) mod 17 = 0 then k:=k+1;
WriteLn('k = ',k);
End.

k = 58823