Составьте блок-схему, вот по паскалю она решена сама звучит так: в каких двузначных числах удвоенная сумма цифр равна их произведению? var a : integer; b : integer; begin writeln(' решение '); for a: =1 to 9 do for b: =1 to 9 do begin if (a+b)*2=a*b then writeln(a*10+b); end; end.