Составить графическую схему алгоритма и написать программу для вычисления значений переменной Y - Pascal ABC

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

Всем привет.Нужна помощь с решением задачки.Заранее спасибо.

Решение задачи: «Составить графическую схему алгоритма и написать программу для вычисления значений переменной Y»

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

var
  x, y: real;
 
begin
  readln(x);
  if x < -1 then
    y := 6 * x * x
  else
  if (x > 1) and (x < 25) then
    y := 5.1 * x * x * x
  else
    y := x / 2;
  writeln(y);
end.

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

В начале объявляются две переменные: x и y, типа real.
Затем идет команда readln(x), которая считывает значение переменной x с консоли.
Далее, если значение x меньше -1, то присваивается значение переменной y равное 6 x x.
Если условие из пункта 3 не выполняется, то проверяется условие из пункта 4. Если x больше 1 и меньше 25, то присваивается значение переменной y равное 5.1 x x * x.
Если условие из пункта 4 не выполняется, то присваивается значение переменной y равное x / 2.
И наконец, значение переменной y выводится на экран с помощью команды writeln(y).