PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var x:=ReadReal('x=');
  var y:real;
  if x<1 then y:=0.5**x
  else
    if x<4 then y:=4
    else y:=5;
  Writeln(y)
end.

№2

begin
  var(x,y,z):=ReadReal3('Введите x,y,z:');
  Writeln('min=',Min(Sin(x+y),Min(5-6*y,Tan(Abs(z)))))
end.

№3

begin
  var(x,y):=ReadReal2('Введите x,y:');
  if (y<2.5*x+2) and (y<-2.5*x+2) and (y>-3) then Writeln('Принадлежит')
  else Writeln('Не принадлежит')
end.