ДАЮ 35 поинтов. Перевести с Паскаля на алгоритмический язык :program KvUravneniye;vara, b, c, x1, x2, discriminant : real;beginwriteln('введите коэффициенты уравнения вида : a*sqr(x)+b*x+c');{ввод данных}write('a = ');readln(a);write('b = ');readln(b);write('c = ');readln(c);{дискриминант}discriminant := sqr(b) - 4 * a * c; if discriminant < 0 thenwriteln('Квадратное уравнение не имеет корней')elsebeginif discriminant = 0 thenbegin{квадратное уравнение имеет два одинаковых корня}x1 := -b / (2 * a);x2 := x1;endelsebegin{уравнение имеет два разных корня}x1 := (-b + sqrt(discriminant)) / (2 * a);x2 := (-b - sqrt(discriminant)) / (2 * a);end;{вывод корней уравнения}writeln('x1 = ', x1:8:3);writeln('x2 = ', x2:8:3);end;writeln('Уравнение решено. ');end.