Ответ:

Вот код на Pascal для решения этой задачи:

program PurchaseCost;

var

X, A, U, B, V, cost: real;

begin

writeln('Введите количество пакетов сока (X): ');

readln(X);

writeln('Введите цену одного пакета сока (У): ');

readln(U);

writeln('Введите количество бутылок лимонада (A): ');

readln(A);

writeln('Введите цену одной бутылки лимонада (B): ');

readln(B);

cost := X*U + A*B;

writeln('Стоимость покупки: ', cost:0:2);

if (X < A) and (X < B) then

writeln('Минимальное число: ', X:0:2)

else if (A < B) then

writeln('Минимальное число: ', A:0:2)

else

writeln('Минимальное число: ', B:0:2);

readln;

end.