Девченка клава очень любит конфеты, но старается смотреть за весом. Ей

Имеются два условия.

1-ое - желание Клавы съесть M конфет. M N, иначе конфет просто не хватит.

2-ое - не поправиться больше чем на R кг. Если съесть М конфет, то они в сумме дадут MK калорий и это приведет к повышению веса  на MK/S кг. Желание Клавы определяется условием MK/S R

PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var N, M, K: integer;

 var S, R: real;

 Read(N, K, S, R, M); // порядок ввода конкретно здесь

 if M gt; N then Print('В коробке недостаточно конфет')

 else

 if M * K / S lt;= R then Print('Клаве повезло!')

 else Print('Клава будет расстроена')

end.

Пример:

18 2400 8600 1.5 5

Клаве повезло!