Bymas | Паскаль

Как это можно записать, кто знает ? Я записал вот как:

perl

   mass = array [1..10] of integer; var n, i : integer; A : mass; begin write('Нечетные элементы : '); for i:=1 to n do begin if (A[i] mod 2 <> 0) then write(A[i], ' | '); end; write('Четные : '); for i:=2 to n do begin if(A[i] mod 3 <> 1) then write(A[i], ' | '); end; readln; end.

Изображение