Winrar (просит заплатить за полную версию но мы можем отказаться)
avast (всегда предлагает улучшить но мы можем зарегистрироваться и остаться на бесплатной версии)
ccliner (предлагает отблагодарить, но мы можем бесплатно пользоваться)
Total Commander (Предлагает купить полную версию (аналогично как winrar))
Тут решение сложное обращайся к поисковику
Var a,b,x,s,w,y:real;
begin
a:=1.5; b:=15.5; x:=-2.9;
s:=sin(x+a);
w:=sqrt(x*x+b)-b*b*s*s*s;
y:=sqr(x*x*x)-x/sqrt(a*a+b*b);
writeln('w = ',w,' y = ',y);
end.
Результат:
w = 234.804528324246 y = 595.00954777673