Найдите значение функции - Pascal ABC

Формулировка задачи:

Найдите значение функции У

Решение задачи: «Найдите значение функции»

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

program pr;
var
  y: real;
  x, z: integer;
begin
  writeln('Введите значение x');
  readln(x);
  writeln('Введите значение z');
  readln(z);
  if x < -1 then
    y := (abs(x * x + 4)) / (2 * x - z);
  if x >= -1 then
    y := (z - x) * (z - x);
  writeln('y= ', y);
end.

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

В программе объявлены три переменные: y, x и z.
Программа запрашивает у пользователя значения x и z с помощью функции readln.
В блоке if проверяется значение переменной x. Если x меньше -1, то вычисляется значение y по формуле abs(xx+4)/(2x-z). Если x больше или равно -1, то вычисляется значение y по формуле (z-x)*(z-x).
Значение переменной y выводится на экран с помощью функции writeln.