СРОЧНО!!!! Помогите сделать пожалуйста,завтра сдать надо

Question

СРОЧНО!!!!
Помогите сделать пожалуйста,завтра сдать надо

---

Answer 1

Var a:integer;
s,c_tetr,c_rez,c_ruch:real;
begin
write('Стоимость канцелярских товаров');
writeln('Укажите количество тетрадей');
read(a)
c_tetr:=45;
c_rez:=12;
c_ruch:=60;
s:=a*c_tetr+4*a*c_ruch+2*c_rez;
write('Стоимость покупки' ,s);
end.

Comments

а там где скобки,так и писать "стоимость..."?

---

Да это будет выведено на экран (так понятнее будет пользователю) Хотя в этой строке программы можно просто набрать write(s);

---

Поправочка Кавычки должны быть одинарные ' а не "