Написать задачу про кассу,паскаль информатика 9 класс.Касса должна считатать кол во товаров,их стоимость и выдавать сдачу.Должна выдавать ошибку если пользователю не хватает денег

enterCommandCicleRepeat:=true; {ставим значение, на true, то есть цикл будет работать} while enterCommandCicleRepeat do {вложенный цикл, необходим для корректного ввода команды для продолжения или выхода из цикла ввода товаров} begin Writeln('Add new product? (enter Y/N);'); Readln(userAnswer); {спрашиваем мользователя, хочет ли он добавить ещё один товар}

if 'N' = userAnswer then begin cicleRepeat:=false; {если нет, то поставить переменную цикла на false, то есть выйти из основного цикла} enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла тоже} end;

if 'Y' = userAnswer then begin Writeln('Current tax: ', tax:0:2); {если да, то вывести значение текущего счёта на экран и продолжить выполнение основного цикла} enterCommandCicleRepeat:=false; {поставить переменную цикла на false, то есть выйти из вложенного цикла} end else begin Writeln('Wrong command!'); {вывести сообщение о не верно введенной команде и вернуться к вводу оной} end; end; end;

Writeln('Your tax is: ', tax:0:2); {вывести значение всего счёта} Writeln('Enter monney: '); Readln(monney); {ввести деньги} if (monney < tax) then {если размер введеных денег меньше чем размер счёта} begin Writeln('Error! To less money. Abording...'); {то выдать ошибку} end

else begin residue:=monney-tax; {иначе, посчитать сдачу} Writeln('Tax is: ', tax:0:2); {вывести весь счёт} Writeln('Products count is: ', productCounter); {вывести кол-во продуктов} Writeln('Your monney: ', monney:0:2); {вывести кол-во введеных денег} Writeln('Your residue is: ', residue:0:2); {вывести кол-во сдачи} end;end.

Код прекреплен к ответу, всё прокоментрировано. Так же продублирован в коментариях. Если есть вопросы, велком в те же коментарии.Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (: