в школьной столовой в продаже имеются шоколадки и сок, за них можно расплатиться только картой питания. карту необходимо пополнять если на ее счету остается меньше 30 руб, если на карте меньше 40 рублей, то родители получают об этом уведомление. исходная сумма на карте неизвестна,  стоимость шоколадки 45 руб,  стоимость сока 56 руб, карта блокируется если остаток меньше 30 руб. Напишите программу которая Выводит на экран фразу о необходимости пополнить карту
20 баллов

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var answer := 1;

   var sum := Random(100, 500);

   repeat

       if sum > 30 then

       begin

           if Random(100) mod 2 = 0 then begin

               PrintLn('[Куплена шоколадка]');

               sum -= 45;

           end

           else begin

               PrintLn('[Куплен сок]');

               sum -= 56;

           end;

           if sum < 40 then begin

               answer := ReadInteger('На карте меньше 40! 1-Пополнить на 300р; 0-Пропустить');

               if answer > 0 then sum += 300;

           end

       end;

       if sum <= 30 then

       begin

           answer := ReadInteger('Карта заблокирована!!! 1-Пополнить на 300р; 0-Пусть голодает');

           if answer > 0 then sum += 300;

       end;

       Sleep(200);

   until (answer = 0) and (sum <= 30)

end.