var 
  a1,a2,a3,z1,z2,z3,sum:real;
  
begin
  a1:=188.5;
  a2:=95;
  a3:=104.5;
  writeln ('Введите массы:');
  readln (z1,z2,z3);
  sum:=z1*a1+z2*a2+z3*a3;
  a1:=a1*z1;
  a2:=a2*z2;
  a3:=a3*z3;
  writeln ('Вся сумма - ', sum, ' рублей');
  writeln ('Стоимость масла - ',sum, ' рублей');
  writeln ('Стоимость сметаны - ',sum,  ' рублей');
  writeln ('Стоимость сливок - ', a3, ' рублей');
end.