Составьте програму, которая запрашивает количество карандашей и их цену, количество тетрадей и их цену, а выводит стоимость всех карандашей, тетрадей и всей покупки в целом. помогите пожаааалуйстааа

Program price;

var
pencil_count,pencil_cost,notebook_count,notebook_cost,pencil_price,notebook_price,total_price:real;

begin
write(Введите количество карандашей: );
readln(pencil_count);
write(Введите цену одного карандаша: );
readln(pencil_cost);
write(Введите количество тетрадей: );
readln(notebook_count);
write(Введите цену одной тетради: );
readln(notebook_cost);

pencil_price := pencil_count * pencil_cost;
writeln(Стоимость всех карандашей: , pencil_price);

notebook_price := notebook_count * notebook_cost;
writeln(Стоимость всех тетрадей: , notebook_price);

total_price := pencil_price + notebook_price;
writeln(Общая стоимость всей покупки: , total_price);

end.