Построить блок-схему алгоритма для вычисления значения функции и написать программу на языке 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.

var x, y, f: real;
 
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  if (x + y >= 0) and ((y < 2) or (y >= 5))
    then begin
      if y < 2
        then f := sqrt(x + y)
        else f := sqr(x + y);
      write('F(x, y) = ', f)
    end
    else write('Значение функции не определено.');
  readln
end.

var x, y, f: real;
 
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  if y >= 5
    then f := sqr(x + y)
    else if (y < 2) and (x + y >= 0)
      then y := sqrt(x + y)
      else y := -1;
  if y >= 0
    then write('F(x, y) = ', f)
    else write('Значение функции не определено.');
  readln
end.