Как сделать на языке паскаль y=lg|arctg(x)-sin(ax)| где x=10^a+cos(a+1) важно

1. современный паскаль // pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin   var a: =readreal('a=');   var x: =power(10,a)+cos(a+1);   var y: =log10(abs(arctan(x)-sin(a*;   writeln('x=',x,', y=',y) end. пример a= 2.105 x=126.35097753811, y=-0.162831822729058 2. типовой "школьный" паскаль (как не надо учить) program vasya; var   a,x,y: real; begin   write('a=');   read(a);   x: =exp(a*ln(10))+cos(a+1);   y: =ln(abs(arctan(x)-sin(a*/ln(10);   writeln('x=',x,', y=',y) end. пример a=2.105 x=126.35097753811, y=-0.162831822729023 3. сравнение решений - "школьный" вариант длиннее. больше текста - дольше писать, больше шансов сделать ошибку. - результат вычисления y различный. разница составляет вроде немного - всего 0.000000000000035 (это 0.35×10⁻¹³), но если делать много вычислений, ошибки могут накапливаться. вычисленное с более высокой точностью (и округленное до такой же, как в паскале разрядности) значение y равно -0.162831822729052, т.е. "современное" решение оказывается еще и на один порядок точнее. за счет чего? за счет уменьшения ошибок при меньшем количестве вычислений - их сократили функции power  и log10.

// pascalabc.net 3.4.2, сборка 1805 от 29.09.2018 // внимание! если программа не работает, обновите версию!

begin

  var k : = readseqinteger('введите три целых числа: ', 3).distinct.count;

  print(k = 3 ? 0 : k = 2 ? 2 : 3)

end.