Var a, b, c: array [1..20] of integer; n, k, l, i: integer; begin writeln('|||входные данные |||'); write('введите количество элементов: '); readln(n); writeln('массив а: '); for i: =1 to n do; read(a[i]); k: =1; l: =1; for i: =1 to n do if i mod 2=0 then begin k: =k+1; b[k]: =a[i]; end else l: =l+1; c[l]: =a[i]; writeln('массив b с четными элементами: ', b[k]); read(b[k]); writeln('массив c с нечетными элементами: ', c[l]); read(c[l]); writeln; writeln; end. не могу найти ошибку исправьте !

Write('введите количество элементов: '); вроде writeln

Var     n,k,s,m: integer; begin {1-я } writeln("введите натуральное число"); readln(n); if n mod 10 = 8 then     writeln("число оканчивается на 8")     else writeln("число не оканчивается на 8"); {2-я } writeln("введите количество гостей пришедших к пете"); readln(k); if (25-k*2)> 0 then writeln("конфет хватит")     else writeln("конфет недостаточно"); {3-я } writeln("введите количество рублей у пети, а затем цену  одной тетради"); readln(s); readln(m); if (s-m*5)> =0 then writeln("петя сможет купить пять тетрадей");   else   writeln("пяти тетрадей не купить"); end.

Идем с конца. из нечетных вычли 1 (получилось четное число), к четным прибавили 1 (нечётное). отменяем это: к четным прибавляем 1, от нечётных отнимаем. 3216 ->     2307 третья цифра была сдвинута на 3, при этом поменяв свою четность. 2 - четное число, значит, исходное число было нечётным и было сдвинуто на 3 влево. отменяем, сдвигаем на 3 вправо: 2 -> 3 -> 4 -> 5.  вторая цифра была сдвинута на 2, чётность не меняла, была и осталась нечётной. она была сдвинута на 2 разряда влево, нам надо сдвинуть на 2 вправо: 3 -> 4 -> 5. первая цифра сейчас чётная (0), значит, была нечётной, её сдвинули на 1 влево. сдвигаем на 1 вправо: 0 -> 1. нулевая цифра была сдвинута на 0 разрядов, поэтому осталась без изменений. это цифра 7. искомый пароль: 5517. (ну и на всякий случай: не надо ставить такие простые пароли, не будьте, как вася! )