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

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.