Написать программу решения задачи на языке Паскаль: а)Известно, что Х кг шоколадных конфет стоит А рублей, а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок. б)Дана длина ребра куба а. Найти его объем и площадь поверхности

Предыдущий
вопрос Следующий
вопрос

program Cost_calculations;
var
X, Y, A, B: real;
Cost_choco, Cost_iris, ratio: real;
a, volume, area: real;
begin
// ввод данных
write('Введите вес шоколадных конфет (X кг): ');
readln(X);
write('Введите стоимость шоколадных конфет (A рублей): ');
readln(A);
write('Введите вес ирисок (Y кг): ');
readln(Y);
write('Введите стоимость ирисок (B рублей): ');
readln(B);

// вычисление стоимости 1 кг каждого продукта
Cost_choco := A / X;
Cost_iris := B / Y;

// вычисление отношения стоимости шоколадных конфет к ирискам
ratio := Cost_choco / Cost_iris;

writeln('Стоимость 1 кг шоколадных конфет: ', Cost_choco:0:2, ' рублей');
writeln('Стоимость 1 кг ирисок: ', Cost_iris:0:2, ' рублей');
writeln('Шоколадные конфеты дороже ирисок в ', ratio:0:2, ' раз');

// часть б
write('Введите длину ребра куба (а): ');
readln(a);

// вычисление объема куба
volume := a a a;

// вычисление площади поверхности куба
area := 6 a a;

writeln('Объем куба: ', volume:0:2);
writeln('Площадь поверхности куба: ', area:0:2);

end.