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