Паскаль

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

Я записал вот как:

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.