Составить и записать программу решения задачи: У Пети есть х руб. Петя купил несколько тетрадей и несколько карандашей. Вычислить стоимость покупки и сдачу. В ПАСКАЛЕ!

Предыдущий
вопрос Следующий
вопрос

program CalculatePurchase;
var
x, priceNotebook, pricePencil, quantityNotebook, quantityPencil, totalCost, change: integer;
begin
write('Введите сумму денег у Пети: ');
readln(x);

write('Введите стоимость одной тетради: ');
readln(priceNotebook);

write('Введите количество купленных тетрадей: ');
readln(quantityNotebook);

write('Введите стоимость одного карандаша: ');
readln(pricePencil);

write('Введите количество купленных карандашей: ');
readln(quantityPencil);

totalCost := priceNotebook quantityNotebook + pricePencil quantityPencil;
change := x - totalCost;

writeln('Общая стоимость покупки: ', totalCost);
writeln('Сдача: ', change);
end.