Помогите составить программы на языке Паскаль,пожалуйста

1. Дано вещественное число x. Для функции, представленной графиком, вычислить y = f (x).
2. Найти максимальное (минимальное значение).
3. Выяснить, принадлежит ли точка Р(х, у) заштрихованной области.

Каждая картинка соответствует номеру задачи

Буду благодарен

По Лазарусу страдают на Украине, а у нас в России им не пользуются практически, так что у меня его нет. И еще - этот код несовместим с Free Pascal, который используется в Лазарус. Так что надо сразу в вопросе указывать необходимый диалект языка/систему программирования.

А что значит 0,5**x?

0.5 в степени х

В PascalABC.NET так можно писать

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018Внимание! Если программа не работает, обновите версию!№1begin  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.№2begin  var(x,y,z):=ReadReal3('Введите x,y,z:');  Writeln('min=',Min(Sin(x+y),Min(5-6*y,Tan(Abs(z)))))end.№3begin  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.