Чим відрізняется абсолютне посилання від комбінованого

Pascalabc.netvar   x,y,z: integer;   m: single; begin   write('введите x,y,z: '); read(x,y,z);   m: =(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));   writeln(m) end. тестовое решение: введите x,y,z: 3 6 -2 -0.3 borland pascal 7.01 uses crt; function max(m,n: integer): integer; begin if m> n then max: =m else max: =n end; function min(m,n: integer): integer; begin if m< n then min: =m else min: =n end; var   x,y,z: integer;   m: real; begin   clrscr;   write('введите x,y,z: '); read(x,y,z);   m: =(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));   writeln(m);   readkey end. тестовое решение: введите x,y,z: 3 6 -2 -3.0000000000e-01

Var   x, cs, tg: real; begin   write('введите число в диапазоне [0..3.14]: ');   readln(x);   if (x < 0) or (x > 3.14) then writeln('число вне диапазона')   else begin       cs : = cos(x); tg : = tan(x);       if cs > tg then writeln('cosx > tgx')       else if cs = tg then writeln('cosx = tgx')       else writeln('cosx < tgx')   end end. тестовое решение: введите число в диапазоне [0..3.14]: 1.58 cosx > tgx