Найдите и выведите на экран все двузначные числа, сумма цифр которых не меняется при умножении на 2

program zz1;

var i, i1, i2, s1, s2, k:integer; / /задаем переменные

begin

for i:=10 to 99 do / / перебираем все двухзначные числа

begin

i1:=i div 10; / / находим первую цифру

i2:=i mod 10; / / находим вторую цифру

s1:=i1+i2; / / высчитываем сумму цифр

k:=i*2; / / умножаем двухзначное число на два

i1:=k div 10; / / находим первую цифру

i2:=k mod 10; / / находим вторую цифру

s2:=i1+i2; / / высчитываем сумму цифр

if s1=s2 then writeln (i,' ', k); / /выводим на экран найденное первое и второе двухзначные числа

end;

end.