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