Г. И. Челпанов предложил разделить психологию на две части: социальную и собственно психологию

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;

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