Составить программму которая увеличивает значение выражения (a-b)*15 Если результат больше 100,то вывести соответствущее сообщение Если результат меньшеили равен,то вывести только число Помогите пожалуйста решить
var a, b:real; begin write('a = '); readln(a); write('b = '); readln(b); if (a - b) * 15 > 100 then writeln('Результат больше 100') else writeln('(', a, ' - ', b, ') * 15 = ', (a - b) * 15 ); end.
