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

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

begin
  var x:=ReadReal('Введите положительное число:');
  if x<=0 then Writeln('Нужно было ввести положительное число')
  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