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

var
k,i,a,b,c1,c2,c3:integer;
begin
    writeln('Vvedite a');
    readln(a);
    writeln('Vvedite b');
    readln(b);
    k:=0;
    for i:=100 to 999 do
         begin
           c1:=i div 100;
           c2:=i div 10 mod 10;
           c3:=i mod 10;
           if (c1+c2+c3=A)and(c3=B) then k:=k+1;
         end;
    write('K=',k);
end.