Найдите и выведите на экран все двузначные числа, сумма цифр которыx не меняется при умножении на 2. (например, 27 и 27*2=54, сумма цифр чисел 27 и 54 равна 9)

Язык программирования паскаль АВС

var i,tmp,s1,s2:integer;beginfor i:=10 to 50 do begintmp:=i;  while tmp <> 0 do begin    s1+=tmp mod 10;    tmp:=tmp div 10;  end;tmp:=i*2;  while tmp <> 0 do begin    s2+=tmp mod 10;    tmp:=tmp div 10;  end;if (s1=s2) then write(i,' ');s1:=0;s2:=0;end;end.