Вычислить количество всех трехзначных чисел сумма цифр которых равна 12

program zz1;

var i, s, k, p, n:integer; / / задаем переменные целого типа

begin

for i:=100 to 999 do / / организуем цикл в котором переберем все трехзначные числа

begin

p:=i mod 10; / / находим последнюю цифру трехзначного числа

n: = (i div 10) mod 10; / / находим среднюю цифру трехзначного числа

k:=i div 100; / / находим первую цифру трехзначного числа

if (p + k + n = 12) / / проверяем условие, сумма цифр равна 12

then s:=s + 1;

end;

writeln (' количество найденных чисел = ', s); / / выводим ответ

end.