С нормальными данными, а не с арксинусом пяти, и в нормальной записи всё работает нормально. А арксинус в Паскале (в весьма популярном модуле math), конечно же, есть, также как и степень.
И ещё: Program писать необязательно, а, следовательно, и не нужно; инструкциями типа power(x,3) можно проверить работоспособность модуля math, а вообще квадраты и кубы чисел так вычисляют только быдлокодеры; от (arcsin(Y)); тоже дурью попахивает и вовсе даже не потому, что игрек в данном случае почему-то вдруг равен пяти, а просто потому, что дурость - она и есть дурость...
В паскале нет арксинуса, есть только арктангенс.
Но это мелочи.
Я, конечно, понимаю, что в военное время значение косинуса может достигать четырех, но чтобы синус достигал пяти??