Найдите и выведите на экран все двузначные числа, у которых при

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.