Очень ! Составьте блок-схему алгоритма для вычисления выражения

z = (2x^3 + 1)/(x^2 + 2)

var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) and (b>c) then writeln('c=',c,'b=',b,'a=',a) else
if (b>a) and (b>c) and (a>c) then writeln('c=',c,'a=',a,'b=',b) else
if (c>a) and (c>b) and (b>a) then writeln('a=',a,'b=',b,'c=',c) else
if (a>b) and (a>c) and (c>b) then writeln('b=',b,'c=',c,'a=',a) else
if (b>a) and (b>c) and (c>a) then writeln('a=',a,'c=',c,'b=',b) else
if (c>a) and (c>b) and (a>b) then writeln('b=',b,'a=',a,'c=',c) else
readln;
end.

Var a, b, c, d, x1, x2 : real; \\ задание переменных действительных чисел.

begin 
write('a = '); readln(a);     \\запрос у пользователя первого коэффициента
write('b = '); readln(b);     \\запрос у пользователя второго коэффициента
write('c = '); readln(c);    \\запрос у пользователя третьего коэффициента
d := b*b - 4*a*c;             \\ расчет дискриминанта
if d=0 then                 \\ветка для решения при нулевом дискриминанте
begin 
x1 := b / (2 * a) 
writeln (x1:3:3); 
end                      \\ окончание при нулевом дискриминанте
else 
if d>0 then       \\ ветка для решения при положительном дискриминанте
begin 
x1 := (- b + sqrt(d) / (2 * a);    \\ первый корень
x2 := (- b - sqrt(d) / (2 * a);      \\ второй корень
writeln (x1:3:3, ' ', x2:3:3);     \\ вывод ответа
end 
else                  \\ ветка решения для отрицательного дискриминанта
writeln ('Нет действительных корней'); 
end.