Расставь в правильном порядке строки составного оператора

При выполнении задания на смартфоне выбирай буквы, под которыми стоят предложения, из выпадающего списка и располагай их в правильном порядке. Подбирай вариант ответа до тех пор, пока индикатор не станет зелёным или до достижения лимита попыток.

Вася составил программу, решающую квадратное уравнение. В результате сбоя строчки программы перепутались местами, восстанови правильную последовательность.
var  a,b,c: real;  x1,x2,d: real;begin writeln('Введите коэффициенты a,b,c квадратного уравнения a*x*x+b*x+c=0: ');  readln(a,b,c);  D := b*b - 4*a*c;  if D \(\lt\) 0 then    writeln('Корней нет')  else if D=0 then  begin x1 := -b/2/a;    writeln('Корень уравнения: x=',x1);  end  else  begin x1 := (-b-sqrt(D))/2/a;    x2 := (-b+sqrt(D))/2/a;    writeln('Корни уравнения: x1=',x1:0:3,' x2=',x2:0:3);  end;end.