Турбо паскаль y=x tgx-sinx,если x больше 1.5                            x3+sinx,если 1.5 меньше =x меньше =2.5                            x3 +5,если 1.5=2.5

program n1; var DertyMonk,x:integer; Begin Writeln (‘Введи Х’); ReadLn (x); if x>1.5 then   DertyMonk:=x*tg(x)   ReadLn (x,'*tg(x)',DertyMonk); else if 1.5 <= x || x <= 2.5 then   DertyMonk:=x*3+sin(x)   ReadLn (x,'*3+sin(x)',DertyMonk); else   DertyMonk:=x*3+5   ReadLn (x,'*3+5=',DertyMonk); end. end;   Не пробовал, наверн много ошибок будет тк давно не програмировал на нём