[Trazzy]

Подсказали такой код. Можно так? (срочняк)

program my;
  uses crt;
  const i=11;
  var a, z, b, d, f: real;
       x: integer;
begin
  clrscr;
   d:=1;
   s:=0;
   for x:=1 to 19 do
   f:=18.4*cos(abs(x))*sin(sqr(x)-2.25);
   s:=s+f;
   x:=x+1;
   a:=s;
   for x:=1 to 16 do
   f:=abs(cos*2(exp(3)*ln(x)+2*sin(x/1.2-3.4))+10.5*cos*abs(3*x);
   d:=d-f;
   b:=d;
   x:=x+1;
   z:=a-2*b;
   writeln('z=', z:5:2);
readln;
end.

Поправьте где ошибки..