Помогите пожалуйста!, надеюсь на вас!!! Напишите программу которая задает массив из 15 элементов случайным образом на интервале от -40 до 90, программным обеспечением является число простым или нет на некоторых позициях и задает взаимообратное число для найденых простых чисел.

Smnoregrets Профессорvar x:real;beginreadln(x);if frac(x)=0 thenwriteln('Число целое')elsewriteln('Число является дробью');end.