Помогите, пожалуйста!!!! Очень надо.... Напишите на языке Pascal

а можно спросить, что значит в эта строка if frac(sqrt(ar[i])?

вот эта*

frac() - функция, возвращающая дробную часть аргумента. Если она нулевая, то число целое. Это проверка условия на квадрат.

Если дробная часть квадратного корня из элемента массива равна 0

Поняла) Спасибо огромное!