Помогите записать на паскале 5,7вариант. ЗАКИНУ 30 БАЛЛОВ

Вот решение двух этих вариантов 5. Var x, y, z, c:real; Begin Readln(x, y, z) ; c:=(1+cos(y-2))/(sqr(sqr(x))/2+sqr(sin(z))); Write(c); End.