Решить по информатике в паскале. : получить массив c, записав на чётные места элементы массива a, а на нечётные-элементы массива b.

program privet;

var

x: real;

begin

writeln('который час? '); read(x);

if x > 24 then

  writeln('введенное число не является временем ' )

else

begin

if (x> =8) and (x< 12)  then writeln('доброе утро! ');

if (x> =12) and (x< 17)      then writeln('добрый день! ');

if(x> =17) and (x< 23)      then writeln('добрый вечер! ');

if(x> =23) or (x< 8)  then writeln('доброй ночи! ');

end;

end.

//вторая программа

var

  x,x1,x2,y,y1,y2: real;

begin

  write('x = '); readln(x);

  write('y = '); readln(y);

  write('x1 = '); readln(x1);

  write('y1 = '); readln(y1);

  write('x2 = '); readln(x2);

  write('y2 = '); readln(y2);

  if ((x - x1) * (x - x2) < 0) and ((y - y1) * (y - y2) < 0) then

      writeln('точка принадлежит заданной области')

  else

      writeln('точка не принадлежит заданной области');

end.