Какой гбязательный признак алгоритма отсутствует в этом скрипте? ​

//pascal abc.net v3.0 сборка 1111 const   n=10; var   ar: array[1..n] of integer;   i,k: integer; begin   randomize;   k: =0;   writeln('array: ');     for i: =1 to n do     begin;       ar[i]: =random(1000,2000);       write(ar[i]: 6);       ar[i]: =ar[i] div 10;       if not odd(ar[i] mod 10) then inc(k);     end;   writeln;   writeln('res=',k); end.пример работы кода: array:   1812   1641   1666   1305   1624   1385   1463   1376   1941   1188res=8

1:   program a1; var i: integer; begin readln(i); if i> 2 then if i> 5 then if i> 8 then if i> 11 then writeln('зима') else  writeln('осень') else  writeln('лето') else  writeln('весна') else  writeln('зима'); end. 2: program a2; var k: integer; begin  readln(k); if k mod 10 = 1 then  writeln('у меня  ',k,' друг') else begin if (k mod 10 <   5) and  (k mod 10 > 1)and(k div 10 < > 1)  then  writeln('у меня  ',k,' друга') else writeln('у меня  ',k,' друзей'); end; end. //вроде все продумал если нет, извиняйте