Создание простой программы на Pascal для вычисления общей стоимости тетрадей и карандашей достаточно просто. Ниже представлен пример кода, который выполняет эту задачу.

program PriceCalculation;
var
price_notebook, price_pencil: real;
quantity_notebook, quantity_pencil: integer;
total_cost: real;
begin
{ Ввод данных }
writeln${}^{\prime }Введитеценутетради{:}^{\prime }$;
readln$pric{e}_{n}otebook$;
writeln${}^{\prime }Введитеколичествотетрадей{:}^{\prime }$;
readln$quantit{y}_{n}otebook$;
writeln${}^{\prime }Введитеценукарандаша{:}^{\prime }$;
readln$pric{e}_{p}encil$;
writeln${}^{\prime }Введитеколичествокарандашей{:}^{\prime }$;
readln$quantit{y}_{p}encil$;
{ Вычисление общей стоимости }
total_cost := $pric{e}_{n}otebook\ast quantit{y}_{n}otebook$ + $pric{e}_{p}encil\ast quantit{y}_{p}encil$;
{ Вывод результата }
writeln${}^{\prime }Общаястоимость{:}^{\prime },tota{l}_{c}ost:0:2$;
end.Как работает программа:

Объявление переменных: Мы объявляем переменные для хранения цены и количества тетрадей и карандашей, а также переменную для общей стоимости.

Ввод данных: Программа выводит запросы на экран и ожидает, пока пользователь введет соответствующие данные.

Вычисление общей стоимости: Мы умножаем цену на количество для тетрадей и карандашей и складываем полученные значения.

Вывод результата: Программа выводит общую стоимость с двумя знаками после запятой.

Запуск программы

Для запуска программы вам необходимо иметь установленный Pascal компилятор $например,FreePascal$. Просто скопируйте код в текстовый файл с расширением .pas, а затем скомпилируйте и запустите его в вашей среде разработки.