Клумба квітів перед будинком Незнайка мала форму прямокутника зі сторонами a і b метри. В один прекрасний день юний бешкетник захопився ландшафтним мистецтвом та вирішив розширити квіткову ділянку на 3 і 2 метри відповідно

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var n:=ReadInteger('Количество элементов в массиве: ');
  var a:=ArrRandom(n,-50,50);
  a.Println(',');
  Writeln('Четные элементы: ');
  var i:=1;
  while i<n do begin Write(a[i],' '); Inc(i,2) end;
  Writeln;
  Writeln('Нечетные элементы: ');
  i:=0;
  while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
  Writeln
end.

Тестовое решение:
Количество элементов в массиве:  10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9

В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):

LET X=1.12

LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))

PRINT Y

И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).

Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).