Что будет выведено на экран в результате выполнения программы?

Program S;
Var x, y: Integer;
Begin
x := 2; y := 3;
x := 2*x *x;
y :=x mod y;
x := x + y;
WriteLn \(‘x =’, x\);
End.

• 10
• 8
• 6
• 1