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

Подтверждаю. Всего: 66

Всего: 66Паскаль:Var i,n : Integer;Begin  n:=0;  For i:=100 to 999 do    If i div 100 + i div 10 mod 10 + i mod 10 = 12 then    Begin      Inc(n);      Writeln(i);    end;  Writeln('Всего: ',n);end.