Найти значение функции Y(X) при заданном X. Используя стандартные функции, вычислить Y11=[Y], где [ ] означают целую часть от ч

[Viraj]

1. Найти значение функции Y(X) при заданном X. Используя стандартные функции, вычислить Y11=[Y], где [ ] означают целую часть от числа Y22.
2. Записать выражение, зависящее от координат точки X1 и Y2 и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для заданной точки вычислить это выражение и результат выдать на печать.

2231.png

uses
  crt;

var
  x, x1, y1, y: real;

begin
  x := 4.741;
  y := 2 * (sqrt(exp((-x) * ln(x + (sqrt(exp((4) * ln(abs(x)))))))));
  writeln(' При x=', x: 8:4, '  ', ' y=', y: 7:4 );
  writeln;
  writeln(' y11=', trunc(y):2, '  ', ' y22=', round(y):2);
  readln;
  clrscr;
  writeln(' Введите координаты x1, y1: ');
  readln(x1, y1);
  writeln;
  writeln((y >= 0) and (y >= x - 2) and (y <= 1) and (y <= -x + 1));
  writeln;
end.

Помогите доделать пожалуйста.