Мальчик вася в общем-то не жалуется на свою жизнь,но для полного счастья ему не хватает n конфет.конфеты в магазине или поштучно или в коробках.одна конфета стоит p копеек,а коробка содержащая m конфет - q копеек.определить минимальную сумму,которую нужно потратить васе,чтобы стать полностью счастливым.

//Pascal ABC.NET v3.1 сборка 1172

Var
 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.

Пример ввода:
12
12
10
120
Пример вывода:
Поштучно, сумма=144