Цикли (підготовка до олімпіади)

Задача 2.  Скласти алгоритм, що підраховує кількість трицифрових цілих чисел із сумою цифр, яка дорівнює S.

Розв'язання.

Використовуючи розв'язання задачі 1 (викладеної у повідомленні "Цикли (підготовка до олімпіади)" від 22.11.2009), легко скласти алгоритм:
...
k:=0;
for i:=0 to 9 do
begin
s:=sum-i;
if (s>=0) and (s<10) then k:=k(s+1);
if (s>9) and (s<19) then k:=k(19-s);
...