<em>// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var n:=ReadInteger('n='); var a,b,x,y:real; Writeln('Введите a,b,x,y'); Read(a,b,x,y); var F:=cos(Power(x,a-b))/(Abs(Power(y,4)-Power(y,5))+5.4)+n*n; Writeln('F=',F) end.