Что такое принцип относительной адресации? в каких ситуациях он проявляется?

Сфоткал с тетрадки за 8 класс

1) var   a, b, c, d, max: integer;   begin   readln(a, b, c, d);   if(a > b) and (a > c) and (a > d) then max : = a   else if(b > a) and (b > c) and (b > d) then max : = b   else if(c > a) and (c > b) and (c > d) then max : = c   else max : = d;   write(max); end. 2) var a, b, c, max: integer;   begin   readln(a, b, c);   if(a > b) and (a > c) then max : = a   else if(b > a) and (b > c) then max : = b   else max : = c;   write(max); end.

//pascal abc.net v3.1 сборка 1219 //как я понял, количество очков случайно var   a,i,s: integer; begin   randomize;   for i: =1 to 5 do   begin     a: =random(11);     writeln(i,' выстрел -',a);     s: =s+a;   end;   writeln('сумма=',s);   if s=50 then writeln('идет с зиночкой в ресторан') else writeln('на тренировку в тир'); end. пример работы программы: 1 выстрел -3 2  выстрел -10 3 выстрел -7 4 выстрел -8 5 выстрел -0 сумма=28 на тренировку в тир