Пример сценария 2

Вопрос с вводом ответа:

Эталон ответа 1:

$(x1) $(x2)

Эталон ответа 2:

$(x2) $(x1)

Сценарий:

{ Сценарий выбирает случайным образом значения корней и коэффициента а,
  затем находит b и c по формулам Виета. }
var
  a, b, c: Integer; { коэффициенты }
  x1, x2: Integer; { корни }
begin
  x1 := Random(10) + 1; { 1...10 }
  if RandomFloat < 0.5 then { С вероятностью 0.5 делаем x1 отрицательным. }
    x1 := -x1;
 
  repeat
    x2 := Random(10) + 1; { 1...10 }
    if RandomFloat < 0.5 then
      x2 := -x2;
  until (x1 <> x2) and (x1 <> -x2); { Добиваемся того, чтобы корни были различными.
    Кроме того, мы не хотим, чтобы b получился равным нулю, поэтому корни
    не должны быть противоположными друг другу. }
 
  a := Random(10) + 1; { 1...10 }
  if RandomFloat < 0.5 then
    a := -a;
 
  b := -(x1 + x2) * a;
  c := x1 * x2 * a;
end.