[Trazzy]

Пока только сложил программку из того что есть:

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.

А как же быть с последней формулой(ами) ???