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

program zz1;

var i, i1, i2, s1, s2, k, kol: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+5 then begin writeln (i,' ', k); kol:=kol+1; end; / /выводим ответ

end;

write ('количество найденных чисел = ', kol);

end.