Программа

[InFlesh]

Помогите написать программу которая находит кол-во трёхзначных чисел сумма цифр которой ровна а и само число заканчивается цифрой b.

Вот что получается у меня

read(a);
read(d);
x4:=0;
for x:= 100 to 999 do begin
x1:=x mod 10;
x2:=x div 100;
x3:=(x div 10) and(x mod 10);
if (x1+x2+x3=a) and (x3=d) then
x4:=x4+1;
end;
writeln(x4);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[BDA]

read(a);
read(b);
count:=0;
for x:= 100 to 999 do begin
  x1:=x mod 10;
  x2:=x mod 100 div 10;
  x3:=x div 100;
  if (x1+x2+x3=a) and (x1=b) then
    inc(count);
end;
writeln(count);