Сформировать два массива из десяти целых чисел: в первый записывать четные

значения, а во второй - все нечетные. Вывести оба массива

Var

C, N:array[1 ... 10] of integer;

A, i, j, m:integer;

Begin

WriteLn ('Введите десять целых чисел') ;

j:=0;

m:=0;

For i: = 1 to 10 do

Begin

Read (A) ;

if A mod 2 = 0 then

Begin

j:=j+1;

C[j]:=A;

End

else

Begin

m:=m+1;

N[m]:=A;

End

End;

Write ('Массив чётных чисел: ') ;

For j: = 1 to j do

Write (C[j],' ') ;

WriteLn;

Write ('Массив нечётных чисел: ') ;

For m: = 1 to m do

Write (N[m],' ') ;

End.