Написать программу в паскаль.Из всех двузначных чисел вывести на экран те из них, сумма цифр которых равна А. (А вводится с клавиатуры)

vara,i:integer;beginwrite('A=');readln(a);for i:=10 to 99 doif (i div 10)+(i mod 10) = a thenwriteln(i);end.