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

Var   A,N:integer;BeginWrite('N = ');ReadLn(N);For A:= 10 to 99 do    if A mod 10 + A div 10 = N then Write(A,' ')End.Пример работы программы:N = 918 27 36 45 54 63 72 81 90