Помогите пожалуйста.
из всех двузначных чисел вывести на экран те из них , сумма цифр которых равна А.

(Если нужна программа, то вот)program chisla;uses crt;var a,b,f,d,s : integer;beginWrite('Введите число A: ');readln(a);if (a<=18) and (a>=1) then beginfor b:=10 to 99 dobeginf:=b div 10;d:=b mod 10;s:=f+d;if s=a then write(b,' ');end;endelseWriteln('Введите число от 1 до 18');end.