Напечатать все двузначные числа сумма которых равна 12 (Делать через турбо паскаль)

program zz1;

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

begin

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

begin

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

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

if s + k = 12 / / проверяем условие, если сумма первой и второй цифр двузначного числа равны двенадцати, то

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

end;

end.