Написать программу в паскале и подробно описать присвойте z значение большего из x и y в том случае если x< 0 и меньшего если x> =0

Var x,y,z: integer; {описание переменных и их типа} begin writeln ('введи два числа'); {вывод на экран сообщения-подсказки} readln (x,y); {считывание переменных} if x< 0 then                       {проверка условия.}   if y> x then z: =y             {если условие истинно, то мы ищем большее из х и у. если                                         у больше, то присваиваем z значение у}             else z: =x             {если же больше х, то присваиваем его значение}         else                         {если условие ложно}             if y> x then z: =x     {то мы ищем меньшее  из х и у. если                                                                             у больше, то присваиваем z значение х}                     else z: =y;     {если же больше х, то присваиваем  значение у} writeln (z);                         {вывод результата на экран} end.                                 {конец программы}

Информационный объем сообщения i=k*i, где k- количество символов в сообщении, i- количество бит на символ i=㏒₂n, где n- количество символов в алфавите i=㏒₂128= 7 бит  i=110*7= 770 бит