Как можно записать языком turbo pascal 2y-y(5y+3-2)

Var y,z: integer; bagin readln(y); z: =2*y-y*(5*y+3-2); writeln(z); end.

1. если складывать "в столбик", то в младших разрядах получаем 2+4=10, т.е. разряд сбрасывается в ноль и единичка "в уме" (пошла в старший разряд). это возможно только если в результате получилось число, равное основанию системы счисления. но 2+4=6 в десятичной системе, поэтому основание системы счисления равно  6. 2. число 214 можно записать в расширенном виде по основанию n некоторой системы счисления. получаем обычное квадратное уравнение 2n²+n+4=59 и находим его корни. система счисления пятиричная.

Const   nm = 100; type   mas = array[1..nm] of integer; procedure shell(var a: mas; n: integer); { сортировка методом шелла } var   i, j, step, t: integer; begin   step : = n div 2;   while step > 0 do   begin       for j : = n - step downto 1 do       begin           i : = j;           while i < = n - step do           begin               if a[i] > a[i + step] then               begin                   t : = a[i];                   a[i] : = a[i + 1];                   a[i + 1] : = t               end;               i : = i + step           end       end;       step : = step div 2   end end; var   x: mas;   i, n: integer; begin   randomize;   write('введите число элементов в массиве (1-100): ');   readln(n);   writeln('исходный массив');   for i : = 1 to n do   begin       x[i] : = random(101) - 50;       write(x[i]: 4)   end;   shell(x, n);   writeln(#13#10, 'отсортированный массив');   for i : = 1 to n do write(x[i]: 4) end. тестовое решение: введите число элементов в массиве (1-100): 20 исходный массив   -8 -17 -19    1  -3  23 -33  30 -27 -45  12  26 -24  18  37    8  47 -14 -19  -3 отсортированный массив   -45 -33 -27 -24 -19 -19 -17 -14  -8  -3  -3    1    8  12  18  23  26  30  37  47