Помогите решить задачу! плачу 50 балов! паскаль! Определить стоимость набора конфет в...

Question

Помогите решить задачу! плачу 50 балов! паскаль!
Определить стоимость набора конфет в который входят
1)красная шапочка 200 граммов
2)алые паруса 150 граммов
3)чародейки 100 граммов
если известна стоимость за 1 кг
+ блоксхема

Answer 1

Var a,b,c,d,e,f,g:real;
begin
write ('Введите цену конфет красная шапочка (за 1 кг): ');
readln (a);
write ('Введите цену конфет алые паруса (за 1 кг): ');
readln (b);
write ('Введите цену конфет чародейки (за 1 кг): ');
readln (c);
d:=(a/1000)*200;
e:=(b/1000)*150;
f:=(c/1000)*100;
g:=d+e+f;
WRITELN;
write ('Стоимость набора конфет составила: ',g,' рублей');
end.

Блок-схема в прикреплённых файлах

---

---