//Filename: lin_eq3.sg
// Solving three linear equations with three unknowns

var x1, x2, x3;
unknown x1, x2, x3;
equ x1 -> x1 + x2 + x3 = 4;
equ x2 -> x1 + 2*x2 + 3*x3 = 7;
equ x3 -> 2*x1 + 3*x2 + x3 = 8;

begin main
solve;
open "answer" write;
file write x1, x2, x3;
close;
end