Составить программу на языке Pascal

[Niro]

ну и сразу:
2*x*(1+ x);

t := 2*x*(1+ x);

[min@y™]

сортировка где?
минус должон быть в функции ch:

(exp(x) + exp(-x)) / 2;

[SonicTheHedgenog]

Сообщение от min@y™

сортировка где?
минус должон быть в функции ch:

(exp(x) + exp(-x)) / 2;

Попытка №2

Program demo;
Var
a,z : integer;

function ch(const x: double): double;
begin
  result:= (exp(x) + exp( x)) / 2;
end;
begin
Writeln ('Vvedite x');
Readln(x);
y:=ch(x);
z:= 1 + abs(x);
a:= 2*x*(1+x);
if (y>z) and (z>a) then writeln(y,z,a);
if (y<z) and (z<a) then writeln(a,z,y);
if (y>a) and (a>z) then writeln(z,a,y);
if (z>y) and (y>a) then writeln(a,y,z);
if (z>a) and (a>y) then writeln(y,a,z);
if (a>y) and (y>z) then writeln(z,y,a);
if (a>z) and (z>y) then writeln(y,z,a);
end.

[min@y™]

я тебе тут не компилятор.
запускать пробовал?

[SonicTheHedgenog]

Сообщение от min@y™

я тебе тут не компилятор.
запускать пробовал?

не обижайся)
1.jpg