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

for i:=100 to 999 do
if (i mod 10 = b) and (i mod 10 + i div 100 + i div 10 mod 10 = a) then
Inc(k);

uses crt;
var a,b,k,i: word;
begin
write('Введите значение параметра a: ');
readln(a);
write('Введите значение параметра b: ');
readln(b);
for i:=100 to 999 do
if (i mod 10 = b) and (i mod 10 + i div 100 + i div 10 mod 10 = a) then
inc(k);
writeln('Кол-во чисел, удовлетворяющих условию = ',k);
end.

var
a,b,k,i:integer;p1,p2,p3:byte;
begin
write('A=');
readln(a);
write('B=');
readln(b);
k:=0;
for i:=100 to 999 do
begin
p1:=i div 100;
p2:=(i mod 100) div 10;
p3:=i mod 10;
if (p1+p2+p3=a) and (p3=b)then 
begin
inc(k);
writeln('число равно ',i);
end;
end;
writeln ('k=',k);
end.

var
  a, b, i, n: integer;
begin
  Write('Введите A: '); ReadLn(a);
  repeat
    Write('Введите B (0..9): '); ReadLn(b);
  until (b >= 0) and (b <= 9);
  n := 0;
  for i := 10 to 99 do
    if i div 10 + i mod 10 + b = a then begin
      Inc(n);
      WriteLn(i, b);
    end;
  WriteLn('N = ', n);
end.

var
  ab: array [1..27, 0..9] of integer;
  i, b: integer;
begin
  FillChar(ab, SizeOf(ab), #0);
  for i := 100 to 999 do
    Inc(ab[i div 100 + i div 10 mod 10 + i mod 10, i mod 10]);
  Write(' \B'); for b := 0 to 9 do Write(b:3); WriteLn;
  Write('A \'); for b := 0 to 9 do Write('---'); WriteLn;
  for i := 1 to 27 do begin
    Write(i:2, '|');
    for b := 0 to 9 do Write(ab[i, b]:3);
    WriteLn;
  end;
end.