Нужно это работа в 10 классе, нужно решение

'ms qbasic 1.0 for x = -4 to 4 step .5     print x, abs(x) + 2 next x результат: -4                        6 -3.5                    5.5 -3                        5 -2.5                    4.5 -2                        4 -1.5                    3.5 -1                        3 -.5                      2.5   0                        2   .5                      2.5   1                        3   1.5                    3.5   2                        4   2.5                    4.5   3                        5   3.5                    5.5   4                        6 чтобы продолжить, нажмите любую клавишу

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin   var a: =arrrandom(100,-20,20); a.println;   writelnformat('положительных {0}, отрицательных {1}',       a.where(x-> x> 0).count,a.where(x-> x< 0).count) end. тестовое решение: -19 12 19 -17 -5 10 -13 -2 -4 16 -6 -12 -3 5 -3 -6 -1 8 -19 -14 -1 9 -10 20 -7 20 5 17 -7 11 -5 -14 -19 -18 16 13 11 -2 -3 9 1 11 10 -13 8 -14 -15 -13 8 5 -7 20 -20 18 2 -8 2 19 10 -5 -15 -10 -16 5 1 -12 -14 -6 9 5 3 -20 -9 -7 6 9 20 -18 -8 -13 14 -3 -11 9 -3 -5 -15 -16 0 4 -10 12 8 -19 4 -10 6 -15 7 0 положительных 44, отрицательных 54