Среди двузначных чисел найти те, сумма цифр которых равна 10 (pascal).

Question

Среди двузначных чисел найти те, сумма цифр которых равна 10 (pascal).

Answer 1

Program;
var a,i:integer;
Begin
for i:=10 to 99 do
read(a);
if (a mod 10+ a div 10=10) then
write(a);
End.