Помогите найти ошибку var a, b, c, d, x, k: integer; begin k=0 for x:= 1000 to 9999 do begin a:= x div 1000; b:= x div 100 mod 1
Помогите найти ошибку var a, b, c, d, x, k: integer; begin k=0 for x:= 1000 to 9999 do begin a:= x div 1000; b:= x div 100 mod 10; c:= x div 10 mod 10; d:= 0; a+b+c+d=10 then k:=k+1 end; writeln (c) end.