Написать программу выводящую на экран все двузначные числа сумма которых равна 10

program zz1;

var i, a, b:integer; / / задаем переменные целого типа

begin

for i:=10 to 99 do / / организуем цикл, в котором переберем все числа от десяти до девяносто девяти

begin

a:=i mod 10; / / находим последнюю цифру двузначного числа

b:=i div 10; / / находим первую цифру двузначного числа

if a + b = 10 / / проверяем условие, если сумма первой и второй цифр двузначного числа равна десяти, то

then write (' ', i); / / выводим ответ в строчку через пробел

end;

end.