Вычислить значение выражения: tgx-0.5x+tg(2z). Все это нужно написать в паскале

// PascalABC.NET

begin

 var (x, z) := ReadReal2('Введете x и z:');

 Print(Tan(x) - 0.5 * x + Tan(2 * z))

end.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так