Ввести число.если оно неотрицательное, вычесть из него 10, в противном случае прибавить к нему 10. составить программу ​

1. средства функционального программирования // pascalabc.net 3.1, сборка 1239 от 08.05.2016 // также проверено в wde: begin   var s: =readlnstring('> ');   s.batch(s.length div 5).skip(2).take(1).aggregate((c1,c2)-> c1+c2).println('') end. тестовое решение > retmutsike ut 2. еще один вариант (на слайсах) // pascalabc.net 3.1, сборка 1239 от 08.05.2016 // также проверено в wde: begin   var s: =readlnstring('> ');   var m: =s.length div 5;   s[2*m+1: 3*m+1].println('') end. 3. стандартные средства паскаля var   s: string;   m: integer; begin   write('> '); readln(s);   m: =s.length div 5;   writeln(copy(s,2*m+1,m)) end.

Sub num1()       s = 0       n = cint(inputbox("n ="))       range(cells(1, 1), cells(2 * (n + 2), n +       redim a(n - 1)       redim b(n - 1)       k = 1       cells(k, 1).value = "a"       cells(k + 2, 1).value = "b"       k = k + 1       m = -1       for i = lbound(a, 1) to ubound(a, 1)               a(i) = round(rnd * 10) - 5               cells(k, 1 + i).value = a(i)               if a(i) = 0 then                       m = m + 1                       b(m) = i                       cells(k + 2, m + 1).value = b(m)               end if       next end sub sub num2()       n = 16       redim a(n, n), c(n, n), e(n, n)       range(cells(1, 1), cells(2 * (n + 2), n +       k = 1       cells(k, 1).value = "init"             k = k + 1       cells(k + n + 1, 1).value = "result"       for i = 0 to n               for j = 0 to n                       a(i, j) = round(rnd * 10)                       cells(k + i, j + 1).value = a(i, j)                       if i = j then e(i, j) = 1 else e(i, j) = 0                       c(i, j) = 0                       for r = 0 to n                               c(i, j) = c(i, j) + a(i, r) * a(r, j)                       next                       x = 6 * (c(i, j) + e(i, j))                       cells(k + n + 2 + i, j + 1).value = x               next       next end sub