с решением в PascalABC. Тема ЛВП

Программа:

Pascal:

var

 a, b, x, y, n, F: real;

begin

 write('a = ');  readln(a);

 write('b = ');  readln(b);

 write('x = ');  readln(x);

 write('y = ');  readln(y);

 write('n = ');  readln(n);

 F := ((cos(power(x, (a - b / (abs(power(y, 4)) + 5.4)) + n*n;

 writeln(F);

end.