Найти количество трехзначных чисел

[zenid]

Доброе утро,помогите пожалуйста с кодом программы.
1. Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В (А и В вводятся с клавиатуры).

[evg_m]

количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В

= числу двухзначных чисел, сумма цифр которых равна A-B.
сумма двух оставшихся цифр =A-B
и стоят они на первых двух местах =образуют двухзначное число.

что легко считается с помощью таблицы

case A-B of
0: r:=0; // 00B не в счет!
1: r:=1; // 10B
2: r:=2; // 20B; 11B;
3: r:=3; // 30B; 21B; 12B;
....
10: r:=9; //19B; 28B; 37B; 46B; 55B; 64B; 73B; 82B; 91B;
...
17: r:=2; //89B; 98B;
18: r:=1; //99B;
else r:=0;// таких чисел нет 
end;

[Vasisualis]

type
mas=array[1..20] of integer;
var
i,coltrch,col:integer;
begin
readln(col); // кол-во элементов масива
for i:=1 to col do
readln(mas[i]);

i:=0; coltrch:=0;
for i:=1 to col do
 begin
   sum:=(mas[i] div 100)+(mas[i] div 10 mod 10)+(mas[i] mod 10);
   if (mas[i] div 100>0) and (mas[i] div 100<10) and (mas[i] mod 10 = B) and (sum=A) then
   inc(coltrch);
 end;
writeln(coltch);
end;

[DiemonStar]

многовато вычислений) вот так оптимальнее:

var A, B, CD, Count, I : integer;
begin
  readln(A);
  readln(B);
  Count := 0;
  CD := A - B;
  For I := 1 to (CD div 2) do
    If 2*I = CD then
      Count := Count + 1
     else
      Count := Count + 2;
end.