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.

Answer 2

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