написать формулу. На картинке выдаёт ошибку. Предприятие производит мебель. При заказе на изготовление
более 2 изделий из товарных групп «Диваны» или «Кресла» заказчику
предоставляется скидка 10%; при заказе на изготовление более 10 изделий из товарной группы «Стулья» заказчику предоставляется скидка 5%; в других случаях скидка не предоставляется. Определить сумму скидки, предоставляемую заказчику.

Понимаю, что уже не нужно. Но действительных ответов на подобную категорию вопросов не видел. Тем более человек был согласен на простую анимашку. А её создание уже не столь трудоёмко. Хоть один пример будет
 Пояснения pdf. Примеры в zip архиве преименованном в ods.

Приведу несколько примеров и краткие пояснения по 2м из них
 2й Создавлся в  Synfig studio (В порядке забавы ). У добство в том , что промежуточные кадры программа считает сама. Т.е не требуется прорисовка всех кадров, составляющих  ролик.

P.S. ФАЙЛУ С РАСШИРЕНИЕМ  *.ods ЗАМЕНИТЕ РАСШИРЕНИЕ НА *.zip. Полученный архив распакуйте.

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.