Девочка клава любит конфеты, но старается следить за весом. ей подарили коробку в которой n конфет, каждая конфета содержит k калорий. каждые s калорий увеличивают вес на 1 кг. клава хочет съесть m конфет и может себе позволить поправиться на r килограмм. сможет ли она получить удовольствие и не расстроиться? решить в паскале.

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

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

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

begin

 var N, M, K: integer;

 var S, R: real;

 Read(N, K, S, R, M); // порядок ввода именно тут

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

 else

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

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

end.