Дано два числа. если их произведение больше 100, то вычесть из него 5 и результат вывести на экран, в противном случае, к произведению прибавить 10 и вывести значение на экран ​

program printmulti;

var first, second, multi: integer;

begin

   write('Введите первое число: ');

   readln(first);

   write('Введите второе число: ');

   readln(second);

   multi := first * second;

   if multi > 100 then writeln(multi - 5)

   else writeln(multi + 10);

end.