Написать программу которая выводит таблицу значений функции y=|x+2| диапазон изменения аргумента от -4 до 4 плз составить программу в паскале

program funkci9;

var y,x: integer;

begin

x: =-4;

writeln ('y         x');  

while x< =4 do

begin 

y: =abs(x+2)

writeln (y,'     ',x);

x: =x+1;

end:

readln

end. 

1) нужно разделить исходный код на 3 части 001 110 100 с основанием 2 и заменяем каждую группу на: 000-0,  001-1,  010-2, 011-3, 100-4,   101-5,   110-6,   111-7 получается 001 110 100 с основанием 2 = 164 с основанием 8 2) для перевода в 10ричную систму нужно умножить разряд числа на соответствующую степень разряда 1110100 = 2^6*1+2^5*1+2^4*1+2^3*0+2^2*1+2^1*0+2^0*0=64+32+16+0+4+0+0=116 3)нужно разделить исходный код на группы по 4 разряда 0111 0100 изменяем каждую группу на: 0000-0,   0001-1,   0010-2,   0011-3,   0100-4,   0101-5,   0110-6, 0111-7,   1000-8,   1001-9,   1010-a,   1011-b, 1100-c,   1101-d,   1110-e,   1111-f. получается 0111 0100 с основанием 2 = 74 с основанием 16

Ну типо так: domains treetype = tree(integer, treetype, treetype); empty   predicates max_t(treetype, integer) min_t(treetype, integer) max(integer,integer,integer) min(integer,integer,integer)   clauses   max(m,n,n) : - n> =m, ! . max(m,n,m) : - m> =n, ! .   min(m,n,n) : - n< =m, ! . min(m,n,m) : - m< =n, ! .   max_t(tree(x,empty,empty),x) : - ! . max_t(tree(x,empty,r),q) : - max_t(r,n), max(x,n,q). max_t(tree(x,l,empty),q) : - max_t(l,n), max(x,n,q). max_t(tree(x,l,r),q) : - max_t(l,lm), max_t(r,rm), max(rm,lm,qm), max(x,qm,q).   min_t(tree(x,empty,empty),x) : - ! . min_t(tree(x,empty,r),q) : - min_t(r,n), min(x,n,q). min_t(tree(x,l,empty),q) : - min_t(l,n), min(x,n,q). min_t(tree(x,l,r),q) : - min_t(l,lm), min_t(r,rm), min(rm,lm,qm), min(x,qm,q).