Люди какие комбинации нужно написать чтобы получилось цифра 1 в паскали АБС

В браузере консольный ввод организовать нереально.

В качестве среды исполнения использовал Node.js версии 12.18.3.

Иллюстрации кода, а также пример вывода добавлены во вложения.

=========================

Ваши оценки и отзывы лучше оценить качество ответа.

Если ответ удовлетворил, не забудь отметить его как "Лучший".

=========================

Код:

"use strict";

const readline = require('readline');

// IO realisation

(async function QNAThread(dialog) {

   const qna = readline.createInterface({

       input: process.stdin,

       output: process.stdout

   });

   await dialog(function askMe(text) {

       return new Promise((resolve, reject) => {

           qna.question(text + " ", resolve);

       });

   });

   qna.close();

})(mainDialog);

function firstTask() {

   console.log("[Your name and lastname here]");

   console.log("[Information about your group and university]");

}

function secondTask(a, b) {

   return [(a+b)/2, Math.sqrt(a*b)];

}

function thirdTask(x) {

   return Math.pow(Math.cos(Math.PI * x), 2) * Math.log(3*x);

}

function fifthTask(x) {

   return (x*x*x - 5*x*x + 1) !== 10;

}

function sixth(x, b) {

   return (x*x*x + 4*x > -1) && b;

}

// Here is the main script!

async function mainDialog(askMe) {

   //Task #1

   console.log("{First task}");

   firstTask();

   //Task #2

   console.log("\n{Second task}");

   console.log(`Answers for [A=4] and [B=7] are ${secondTask(4, 7)}\n`);

   //Task #3

   console.log("{Third task}");

   let x = Number.parseFloat(await askMe("VVEDITE ZNACHENIE X:=\n"));

   console.log(`PRI X=\t${x} znachenie Y=\t${thirdTask(x)}\n`);

   //Task #4

   console.log("{Fourth task}");

   console.log(`1) При x=${x} значение функции y=\t${thirdTask(x)};`);

   const inner = `2) При x=${x}`;

   console.log(`${inner}\n${" ".repeat(inner.length)}\tзначение функции y=\t${thirdTask(x)};`);

   console.log("*".repeat(40));

   console.log(`3) При x=${x} \n\nзначение функции y=\t${thirdTask(x)};`);

   console.log("*".repeat(40));

   //Task #5

   console.log("\n{Fifth task}");

   x = Number.parseFloat(await askMe("Enter the X value:"));

   console.log(`For x=${x} logical value of goal expression is \"${fifthTask(x)}\".`);

   //Task #6

   console.log("\n{Sixth task}");

   x = 2;

   const b = true;

   console.log(`For [x=${x}] and [b=${b}] logical value of goal expression is ${sixth(x, b)}.`)

}

// 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