Var
z, x, t, k, y: real;
begin
writeln('Цены');
write('- тортика: ');
readln(x);
write('- бутылки сока: ');
readln(y);
write('- кг яблок: ');
readln(t);
write('- мороженого: ');
readln(k);
write('Деньги в кошельке: ');
readln(z);
writeln('...И осталось у Ванечки ', z - 2 * x - 6 * y - 3 * t, ' рублей, на которые он купил мороженку в количестве (шт.): ', trunc((z - 2 * x - 6 * y - 3 * t) / k));
end.