Які функції застосовують частіше для запису складеної умови як аргументу логічної функції IF

Const n=10; m=5;
var
   i,j,k:integer;
   A:array[1..n] of integer;
   B,C:array[1..m] of integer;
begin
   writeln('Введите элкменты массива');
   for i:=1 to n do readln(a[i]);
   j:=0; k:=0;
   for i:=1 to n do
     if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
     else begin k:=k+1; C[k]:=A[i] end;
   writeln('Массив А');
   for i:=1 to n do write(A[i],' ');
   writeln;
   writeln('Массив B');
   for i:=1 to j do write(B[i],' ');
   writeln;
   writeln('Массив C');
   for i:=1 to k do write(C[i],' ');
   writeln
end.

использовать Чертежник

алг буквы

нач

е

п

б

ч

ц

ш

кон

алг е

нач

опустить перо

сместиться на вектор (2,0)

сместиться на вектор (-2,0)

сместиться на вектор (0,2)

сместиться на вектор (2,0)

сместиться на вектор (-2,0)

сместиться на вектор (0,2)

сместиться на вектор (2,0)

поднять перо

сместиться на вектор (1,-4)

кон

алг п

нач

опустить перо

сместиться на вектор (0,4)

сместиться на вектор (2,0)

сместиться на вектор (0,-4)

поднять перо

сместиться на вектор (1,0)

кон

алг б

нач

опустить перо

сместиться на вектор (2,0)

сместиться на вектор (0,2)

сместиться на вектор (-2,0)

сместиться на вектор (0,-2)

сместиться на вектор (0,4)

сместиться на вектор (2,0)

поднять перо

сместиться на вектор (1,0)

кон

алг ч

нач

опустить перо

сместиться на вектор (0,-2)

сместиться на вектор (2,0)

сместиться на вектор (0,2)

сместиться на вектор (0,-4)

поднять перо

сместиться на вектор (1,4)

кон

алг ц

нач

опустить перо

сместиться на вектор (0,-4)

сместиться на вектор (2,0)

сместиться на вектор (0,4)

сместиться на вектор (0,-4)

сместиться на вектор (1,0)

сместиться на вектор (0,-1)

поднять перо

сместиться на вектор (1,5)

кон

алг ш

нач

опустить перо

сместиться на вектор (0,-4)

сместиться на вектор (1,0)

сместиться на вектор (0,4)

сместиться на вектор (0,-4)

сместиться на вектор (1,0)

сместиться на вектор (0,4)

кон