Создать программу для вычисления выражения y=x^(cosx+2/3x^4(a+1/a^2)) x- вводится с...

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var x:=ReadReal('Введите положительное число:');
if x<=0 then Writeln('Нужно было ввести положительное число')<br> else
for var a:=1 to 3 do
Writeln('a=',a,', y=',Power(x,Cos(x)+2/3*Power(x,4)*(a+1/Sqr(a))))
end.

Пример
Введите положительное число: 3.14
a=1, y=8.18301847799916E+63
a=2, y=9.20754501073329E+71
a=3, y=4.96774611959821E+99