Программа на языке Pascal:

program SumOfDigits;
var
i, n, sum1, sum2, digit1, digit2: integer;
begin
for i := 10 to 99 do
begin
n := i * 2;
sum1 := 0;
sum2 := 0;
digit1 := i;
while digit1 > 0 do
begin
sum1 := sum1 + digit1 mod 10;
digit1 := digit1 div 10;
end;
digit2 := n;
while digit2 > 0 do
begin
sum2 := sum2 + digit2 mod 10;
digit2 := digit2 div 10;
end;
if sum1 = sum2 then
writeln('Число: ', i, ', Сумма цифр: ', sum1);
end;
end.

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