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

// PascalABC.NET

begin

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

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

end.

друг сказал) если не правильно извини, но он вродь хорош в информе

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n