Турбо паскаль 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;

Не пробовал, наверн много ошибок будет тк давно не програмировал на нём