Турбо паскаль 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; Не пробовал, наверн много ошибок будет тк давно не програмировал на нем