3:
var a,b,c,d,e,f,g:real;
begin
write('Введите сумму наличных средств (руб): '); readln(a);
write('Введите стоимость 1 кг конфет (руб): '); readln(b);
write('Введите массу конфет (кг): '); readln(c);
write('Введите стоимость 1 кг яблок (руб): '); readln(d);
write('Введите массу яблок (кг): '); readln(e);
f := b*c + d*e;
g := a - f;
writeln('Стоимость покупки составит ', f:0:2, ' руб.');
writeln('Сдача ', g:0:2, ' руб.');
end.
4:
var a:real;
begin
write('Введите длину куба: '); readln(a);
writeln('Объём куба = ', a*a*a:0:2);
writeln('Площадь поверхности куба = ', 6*a*a:0:2);
end.
