var
a1,a2,b1,b2:integer;
begin
write('Цена за 1кг апельсинов: '); readln(a1);
write('Цена за 1кг яблок: '); readln(b1);
write('Вес апельсинов: '); readln(a2);
write('Вес яблок: '); readln(b2);
writeln('Общая цена: ',a1*a2+b1*b2);
end.
var
a,b,c:integer;
begin
readln(a,b,c);
writeln('V= ', a*b*c);
writeln('S= ',2*(a*b+b*c+a*c));
end.
