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

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