Решить работу на алгоритмизацию строчно, заранее

1) var   i, max, maxin: smallint;   arr1, arr, sum: array[1..25] of smallint; begin   max : = -(maxsmallint);   randomize();   for i : = 1 to 25 do   begin       arr[i] : = random(-100, 100);       arr1[i]: =arr[i];       write(arr[i], ' ');       while arr[i] < > 0 do       begin           sum[i] : = abs(arr[i] mod 10) + sum[i];           arr[i] : = arr[i] div 10;           if sum[i] > max then begin           max : = sum[i];           maxin: =i;           end;       end;   end;   writeln();   writeln(arr1[maxin]); end. 2) var   i, sum: byte;   arr: array[1..20] of byte; begin   sum : = 0;   randomize();   for i : = 1 to 20 do   begin       arr[i] : = random(10);       write(arr[i], ' ');       if arr[i] = i then sum : = i + sum;   end;   writeln();   writeln(sum); end.

((х< 5)-> (х< 3))*((х< 2)-> (х< 1))  ⇒  ((1< 5)-> (1< 3))*((1< 2)-> (1< 1))  ⇒ (истина-> истина)*(истина-> ложь)  ⇒ истина * ложь  ⇒ ложь ((х< 5)-> (х< 3))*((х< 2)-> (х< 1))  ⇒ ((2< 5)-> (2< 3))*((2< 2)-> (2< 1))  ⇒ (истина-> истина)*(ложь-> ложь)  ⇒ истина * истина ⇒ истина ((х< 5)-> (х< 3))*((х< 2)-> (х< 1))  ⇒  ((3< 5)-> (3< 3))*((3< 2)-> (3< 1))  ⇒ (истина-> ложь)*(ложь-> ложь)  ⇒ ложь * истина ⇒ ложь ((х< 5)-> (х< 3))*((х< 2)-> (х< 1))  ⇒  ((4< 5)-> (4< 3))*((4< 2)-> (4< 1))  ⇒ (истина-> ложь)*(ложь-> ложь)  ⇒ ложь * истина ⇒ ложь