Пожалуйста, решите через программу Паскаль ABC

Question

Пожалуйста, решите через программу Паскаль ABC

---

Answer 1

Var a,y:double;
begin
writeln('Введите Y: ');
readln(y);
a:=Sqrt(1+abs(Cos(y)))+power(77,7);
writeln(a:14:14);
end.