Var a,b: integer; Begin Read (a); Read (b); If a>b Then writeln ('Ответ: ',3*(a-b)) else writeln ('Число a меньше или равно числу b'); End.