Создайте программу в pascal для вычисления следующей функции: y = √x^3+8

Vara, b, c, x, x1, x2, d, max: real; beginwrite('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); d : = b * b + 4 *a * c; if d > 0 then    begin      x1 : = (-b + sqrt(d))/(2 * a);     x2 : = (-b - sqrt(d))/(2 * a);     if x1 > x2 then max : = x1 else max : = x2;   end  else if d = 0 then max : = -b /(2 * a); if ( d < 0) then writeln('корней нет')else writeln(max * max);       end.

Vara, b, c, x, x1, x2, d, max: real; beginwrite('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); d : = b * b + 4 *a * c; if d > 0 then    begin      x1 : = (-b + sqrt(d))/(2 * a);     x2 : = (-b - sqrt(d))/(2 * a);     if x1 > x2 then max : = x1 else max : = x2;   end  else if d = 0 then max : = -b /(2 * a); if ( d < 0) then writeln('корней нет')else writeln(max * max);       end.