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

program tri;
uses crt;
var
   a, b, count, i, j:Integer;
begin
     count:=0;
     write('Enter A: '); read(a);
     write('Enter B: '); read(b);
     if (b>=a) then
     begin
          writeln('Combination: 0');
          exit;
     end;
     for i:=1 to 9 do
         for j:=0 to 9 do
             if (i+j+b=a) then
             begin
                  inc(count);
                  break;
             end;
     writeln('Combination ', count);
     repeat until keypressed;
end.

program tri;
uses crt;
var
   a, b, count, i, j:Integer;
begin
clrscr;
count:=0;
repeat
write('Ввдите сумму цифр от 1 до 27  A=');
readln(a);
until a in [1..27];
repeat
write('Введите цифру B=');
readln(b);
until b in [0..9];
if (b>=a) then
 begin
   writeln('Таких чисел нет!');
   exit;
 end;
for i:=1 to 9 do
for j:=0 to 9 do
if (i+j+b=a) then
 begin
   inc(count);
   break;
 end;
writeln('Количество трехзначных чисел, сумма цифр=',a,' последняя цифра=',b);
write('составляет ',count);
readln
end.

var
 A, B, C, i: integer;
begin
 write('A= ');
 readln(A);
 write('B= ');
 readln(B);
 C:=0;
 For i:=100 to 999 do
  If ((i mod 10)+(i div 100)+((i div 10) mod 10) = A)and
     ((i mod 10)=B) then Inc(C);
 writeln('Result: ',C);
End.

uses crt;
var a,x,y,z,c,s,d,q:integer;
begin
clrscr;
For a:=1000 to 9999 do
begin
x:=a mod 10;
y:=a div 100;
z:=a div 10;
z:=a mod 10;
c:=a mod 100;
s:=x+c;
d:=y+z;
If (s=d) and (a mod 6=0) and (a mod 27=0) then writeln(a);
end;
end.

uses crt;
var a,b,i,p,c,k:integer;
begin
 clrscr;
 writeln('a,b ');
 readln(a,b);
p:=0;
 if b>=a then writeln('Takih net ')
  else
    for i:=100 to 999 do
    begin
     k:=0;
     c:=i;
     p:=c mod 10;
     if c mod 10=b then
     while c<>0 do
      begin
       k:=k+(c mod 10);
       c:=c div 10;
      end;
      if k=a then p:=p+1;
    end;
writeln(p);
 readln;
end.