Найти ошибку
var a, b, c, d, x, k: integer;
begin k=0
for x: = 1000 to 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.

Объяснение:

Две ошибки:

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;

       if a+b+c+d=10 then k:=k+1

    end;

   writeln(c);

end.