Составить программму которая увеличивает значение выражения (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.