Помогите решить задачу в turbo pascal
Шадринский гусь готовится следующим образом. Тушку гуся вымыть и промокнуть салфеткой, натереть солью и перцем. 300 г риса залить кипящей водой, дать постоять 10 мин и слить воду. 700 г кислых яблок ( лучше всего антоновку ) нарезать ломтиками по 0.7 см, удаляя сердцевину. В тушку гуся положить слоями рис и яблоки. Фаршированного гуся уложить в латку спинкой вниз, закрыть пергаментом или фольгой и поставить в духовку на средний огонь на час – полтора. Периодически поливать гуся вытопившимся жиром. Определить, сколько будет стоить это блюдо
ДополненКод решения задачи в turbo pascal кто-нибудь подскажите
Program Goose;
var Rise, Apples, Goose, WorkKok:real;
begin
Writeln('Введите стоимость килограмма риса. . ');
Readln(Rise);
Writeln('Введите стоимость килограмма кислых яблок сорта Антоновка. . ');
Readln(Apples);
Writeln('Введите стоимость тушки гуся');
Readln(Goose);
Writeln('Введите стоимость работы повара. . ');
Readln(WorkKok);
Writeln('Стоимость приготовления блюда Шадринский гусь равна '+(Rise*0.3+Apples*0.7+Goose+WorkKok));
end.
То есть? Стоимость чего-либо очень мало зависит от себистоимости, это тебя кто-то обманул. Допустим, если этого гуся будешь готовить ты, то он потянет максимум на $50, а если шеф-повар многозвездного мишленовского ресторана - уже где-то на $500. Смекаешь?