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

Var
  i,s: integer;
begin
  for i:=10 to 99 do begin
    s:= 0;
    s:= i div 10 + i mod 10;
    if s*2=s then writeln(i)
  end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.