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

var a:integer;s,c_tetr,c_rez,c_ruch:real;beginwrite('Стоимость канцелярских товаров');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.