program SumOfNumbers;

var
i, j, sum, count: integer;

begin
count := 0;

for i := 10 to 99 do
begin
sum := 0;
j := i;
while j <> 0 do
begin
sum := sum + j mod 10;
j := j div 10;
end;
if sum = 12 then
begin
count := count + i;
end;
end;
writeln('Сумма двузначных чисел с суммой цифр равной 12: ', count);

end.