Задание 1. Вычисление выражений. Использование стандартных функций
Найти значение функции 
при Х=12.7409. Используя стандартные функции,
вычислить Y11=[Y], где [ ] означают целую часть от числа Y22.
Записать выражение, зависящее от координат точки X1 и Y2 и принимающее значение TRUE, если точка принадлежит заштрихованной области, и FALSE, если не принадлежит. Для заданной точки (0.2;0.9) вычислить это выражение и результат выдать на печать.
Program dz1;
var x, x1, y1, y : real;
begin
writeln ( 'введите x:');
readln (x);
y:= sqrt(abs(x-1)+sin(x));
writeln (' При x = ', x: 2:3, ', y = ', y: 2:4);
writeln (' y11 = ', trunc(y): 2, ', y22 = ', round(y): 2);
writeln ('введите координаты: x1, y1');
readln (x1, y1);
writeln (((y1<1-x1) and (y1<1+x1) and (y1>x1-1) and (y1>-x1-1)));
writeln (' Программу составил Смиркин');
end.
Результаты выполнения программы:
введите x:
12.7409
При x = 12.741, y = 3.4517
y11 = 3, y22 = 3
введите координаты: x1, y1
0.2
0.9
False
Программу составил Смиркин