Построить блок-схему алгоритма для вычисления значения функции и написать программу на языке pascal

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

Помогите решить такую задачу Построить блок-схему алгоритма для вычисления значения функции и написать программу:

Решение задачи: «Построить блок-схему алгоритма для вычисления значения функции и написать программу на языке pascal»

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

uses crt;
var
  x,y,d,x1,x2: real;
begin
{Вводим значения a, b и c}
  clrscr;
  write('Введите y=: ');
  readln(y);
if y<2 then
begin
//не пойму что тут должно быть????
end;
if y>=5 then 
begin
{Вычисляем дискриминант}
  d:= Sqr(2*y) - 4*1*Sqr(y);
{Если дискриминант больше 0, то вычисляем корни и выводим на экран}
  if d > 0 then
begin
  x1:= ((2*y) - sqrt(d))/(2*1);
  x2:= (-(2*y) - sqrt(d))/(2*1);
  writeln('F(',y,',',x1:0:0,')');
  writeln('F(',y,',',x2:0:0,')');  
end;
{Если дискриминант равен 0, то вычисляем один корень и выводим на экран}
  if d = 0 then
begin
  x1:= -((2*y)/(2*1));
  writeln('F(',y,',',x1:0:0,')');
  //writeln('Корень = ',x1:0:0);
end;
{Если дискриминант меньше 0, то выводим сообщение}
  if d < 0 then
begin
  writeln('Корней нет');
end;
end;
  readln;
end.

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

Используется библиотека CRT для работы с консолью.
Введены пять переменных: x, y, d, x1, x2 (реальные числа).
Пользователю предлагается ввести значение переменной y.
Если y меньше 2, то выполняется блок кода, который не указан в задании.
Если y больше или равно 5, то вычисляется дискриминант (d) как квадрат двойки, умноженный на y, минус 4, умноженный на 1, возведенный в квадрат.
Если d больше 0, то вычисляются корни уравнения как значение (2y) минус квадратный корень из d, деленное на 2, умноженное на 1, и значение -(2y) минус квадратный корень из d, деленное на 2, умноженное на 1.
Если d равно 0, то вычисляется один корень как значение -((2y)/(21)).
Если d меньше 0, то выводится сообщение Корней нет.
Программа ожидает ввода с клавиатуры, чтобы пользователь мог увидеть результат.