Найти кол-во трехзначных чисел, сумма цифр которых равна A , а само число заканчивается цифрой b. (a и b вводятся с клавиатуры) — Pascal(Паскаль)

var
a,b,i,k:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
for i:=100 to 999 do
if (i mod 10 =b)and(i div 100+(i div 10)mod 10+(i mod 10)=a)then inc(k);
writeln(k);
readln;
end.