varx: longint;n:real;beginwrite('Ввердите x: ');read(x);n:=56*x+cos(x)-x*x*x;write('Результат: ',n:0:9);end.
var
x: longint;
n:real;
begin
write('Ввердите x: ');
read(x);
n:=56*x+cos(x)-x*x*x;
write('Результат: ',n:0:9);
end.