Два квадрата двигаются в противоположных направлениях и отталкиваются от стенок синего квадрата на алгоритмическом языке! ​в кумире

Var   i,i_beg,i_end,k: longint;   p: set of longint; begin   writeln('вводите целые числа большие двух, конец ввода по числу 0');   i_beg: =1000000; i_end: =0;   repeat       read(k);       if k< > 0 then       begin           if i_beg> k then i_beg: =k           else if i_end< k then i_end: =k;           include(p,k)       end   until k=0;   writeln('числа, не входящие в последовательность: ');   for i: =i_beg to i_end do           if not (i in p) then write(i,' ') end. тестовое решение: вводите целые числа большие двух, конец ввода по числу 0 6 12 9 14 10 19 17 11 7 0 числа, не входящие в последовательность: 8 13 15 16 18

Program name; //имя программы uses crt; var  a: integer;     begin  write('введите сумму: '); readln(a);   if a < 2500    then write('подоходный налог составляет: 0 рублей от суммы ',a, ' рублей');         if (a < = 10000) and (a > = 2500)    then write('подоходный налог составляет: ', a*0.13 ,' рублей от суммы ',a, ' рублей');       if a > 10000    then write('подоходный налог составляет: ', (a-1300)*0.15 ,' рублей от суммы ',a, ' рублей');         readkey; end.