Мальчик Вася в общем-то не жалуется на свою жизнь,но для полного счастья ему не хватает N конфет.Конфеты в магазине продаются или поштучно или в коробках.Одна конфета стоит P копеек,а коробка содержащая M конфет - Q копеек.Определить минимальную сумму,которую нужно потратить Васе,чтобы стать полностью счастливым.

//Pascal ABC.NET v3.1 сборка 1172Var n,p,m,q:integer;begin read(n,p,m,q); if frac(n/m)<>0 then m:=trunc(n/m)+1 else m:=n div m; if n*p<m*q then writeln('Поштучно, сумма=',n*p) else  if n*p>m*q then writeln('Коробками, сумма=',m*q); if n*p=m*q then writeln('Без разницы, сумма=',n*p);end.Пример ввода:121210120Пример вывода:Поштучно, сумма=144