Помогите пожалуйста разобраться что и как выполняет данная задача
begin
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.