Из чисел от 10 до 99 вывести те, сумма цифр которых равна n, возможны два варианта.

Var
   A,N:integer;
Begin
Write('N = ');ReadLn(N);
For A:= 10 to 99 do
    if A mod 10 + A div 10 = N then Write(A,' ')
End.

Пример работы программы:

N = 9
18 27 36 45 54 63 72 81 90