Question

Помогите найти ошибку
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.

Answer 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;

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

    end;

   writeln(c);

end.

Answer 2

Ответ:

Объяснение:

Две ошибки: