Введите переменную с ,если переменная в=10. если с больше выводите их сумму ,иначе выводите удвоенноепроизведение.
Uses crt; const b=10; var c:integer; begin read(c); if c>b then writeln(c+b) else writeln(2*c*b); end.