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

Var   i: integer;   s: integer;   a: array[0..49] of integer; begin   s : = 0;   randomize;   for i : = 0 to 49 do   begin       a[i] : = random(60) - 10;       s : = s + a[i];       write(a[i], ' ')   end;   writeln;   writeln('сумма элементов массива ', s) end. пример выполнения в среде pascalabc.net: 46 10 18 47 16 20 3 7 27 -10 10 18 19 28 0 3 21 26 32 36 1 -8 36 32 44 25 35 -1 -4 45 30 35 28 -8 45 6 20 34 0 47 7 9 34 39 47 5 29 10 47 26 сумма элементов массива 1072

Var   x, y: real; begin   writeln('введите координаты точки');   readln(x, y);   write('точка с координатами (', x, ', ', y, ') ');   if sqr(x) + sqr(y) > 1 then write('не ');   writeln('принадлежит области, ограниченной окружностью единичного радиуса') end. пример выполнения в среде pascalabc.net: введите координаты точки 0.2 0.4 точка с координатами (0.2, 0.4) принадлежит области, ограниченной окружностью единичного радиуса введите координаты точки -0.4 2 точка с координатами (-0.4, 2) не принадлежит области, ограниченной окружностью единичного радиуса