Вычислить значение выражения - Pascal ABC (16779)

Поморите пожалуйста решить задачки в Pascal... Фото заданий ниже) Спасибо.

Листинг программы

uses crt;
const A=-0.75;
      B=51;
var y,x:real;
begin
writeln('Введите X:');
read(x);
y:=1+abs(x-b)+sqr(x-a)/2;
writeln('Y = ',y);
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая используется для ввода и вывода данных.
Затем определяются две константы A и B, которые имеют значения -0.75 и 51 соответственно.
Далее объявляются две переменные y и x типа real, которые будут использоваться для хранения результатов вычислений.
После этого происходит чтение значения переменной x с помощью функции read.
Затем вычисляется значение переменной y по формуле y = 1 + abs(x - b) + sqr(x - a) / 2, где a и b - это константы, определенные ранее.
Наконец, выводится значение переменной y с помощью функции writeln.