Вшкольной столовой в продаже имеются шоколадки и сок, за них можно расплатиться только картой питания. карту необходимо пополнять если на ее счету остается меньше 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.

//1) type ty=array[1..25] of integer; var n,i: integer; ar: ty; procedure sortbutmeh(var ar: ty; n: integer); var i,j,c: integer; begin for i: =1 to n-1 do for j: =i+1 to n do if ar[i]< ar[j] then begin c: =ar[i]; ar[i]: =ar[j]; ar[j]: =c; end; end; begin randomize; readln(n); writeln('first array: '); for i: =1 to n do begin ar[i]: =random(100); write(ar[i]: 4); end; sortbutmeh(ar,n); writeln; writeln('array after sortbutmeh()'); for i: =1 to n do write(ar[i]: 4); end. //2) var n: integer; procedure ned(n: integer); begin case n of  1: writeln('понедельник'); 2: writeln('вторник'); 3: writeln('среда'); 4: writeln('четверг'); 5: writeln('пятница'); 6: writeln('суббота'); 7: writeln('воскресенье'); end; end; begin readln(n); ned(n); end. //3) var s: string; function lengthbutmeh(s: string): integer; begin while pos(' ',s)< > 0 do delete(s,pos(' ',s),1); lengthbutmeh: =length(s); end; begin readln(s); writeln(lengthbutmeh(s)); end.