составить программу в паскале: Дано х(вводится с клавиатуры) найдите y=sqrt((2*x+3)/(x-4))

Решить в ПАСКАЛЕВ массиве Z состоящем из 6 чисел все отрицательные элементы заменить их модулями. Полученный массив вывести.С ПОМОЩЬЮ ДАТЧИКА СЛУЧАЙНЫХ ЧИСЕЛ!

Помоги пожалуйста

var   x: real;  begin   readln(x);   write(sqrt((2 * x + 3) / (x - 4))); end.