Пожалуйста посчитайте, пожалуйста!Составите задачу в Pascal ABC и блок-схему: "Определить среди корней квадратного уравнения (вида ax^2+bx+c=0) наибольший и возвести его в квадрат. Приэтом необходимо найти сами корни уранения."

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.