Написать программу на языке Паскаль ​

Объяснение:

Program zero;

Var i, x, y:Integer; a:Real;

Begin

Writeln('Введите числа "x" и "y": ');

Readln(x, y);

a:=1;

For i:=1 to x do

a:=a*(1+1/Sqr(x));

a:=a-12*Sqr(x)*y;

Whiteln('Ответ: ', a);

Readln

End.