Пока только сложил программку из того что есть:
program krutaya;
uses crt;
var v, x: integer;
const i=11;
begin
clrscr;
writeln('Vyberite formulu:');
writeln(' 1) abs(cos(2*x*x*x)+2*sin(x/1.2-3.4))+10.51*cos(abs(3*x))');
writeln(' 2) 18.4*(cos(abs(x)))*sin(x*x-2.5)');
writeln(' 3) ---');
write('Vvedite nomer vybranogo varianta: ');
readln(v);
if v=1 then
begin
clrscr;
write('x=');
readln(x);
writeln(abs(cos(2*x*x*x)+2*sin(x/1.2-3.4))+10.51*cos(abs(3*x)));
readln;
end;
if v=2 then
begin
clrscr;
write('x=');
readln(x);
writeln(18.4*(cos(abs(x)))*sin(x*x-2.5));
readln;
end;
if v=3 then
begin
clrscr;
{...}
end;
end.
А как же быть с последней формулой(ами) ???