лабораторная работа / 1-4 Чет и нечет / Чет и нечет

program xyz;


var
x: array[1..6] of integer;
y,z: array[1..3] of integer;
i:integer;
begin
WriteLn('Vvedite massiv');
for i:=1 to 6 do
Read(x[i]);

for i:=1 to 6 do
if i mod 2 <> 0 then
z[trunc((i+1)/2)]:=x[i]
else
y[trunc(i/2)]:=x[i];

Write('Z - ');
for i:=1 to 3 do
Write(z[i],' ');

Write('Y - ');
for i:=1 to 3 do
Write(y[i],' ');

ReadLn(i);
end.