INPUT "Enter degree of system of equations:", n
PRINT "A*X=B"
FOR i = 1 TO n
FOR j = 1 TO n
  PRINT "Enter a("; i; ","; j;
  INPUT "):", a(i, j)
NEXT
PRINT
NEXT
FOR i = 1 TO n
PRINT "Enter b("; i;
INPUT "):", b(i)
NEXT

k = 0
prex1 = 10
WHILE ABS(x(1) - prex1) > .00001
FOR i = 1 TO n
  FOR j = 1 TO n
   IF i <> j THEN s = s + a(i, j) * x(j)
  NEXT
  IF i = 1 THEN prex1 = x(i)
  x(i) = (b(i) - s) / a(i, i)
  s = 0
NEXT
FOR i = 1 TO n
PRINT x(i);
NEXT
PRINT
WEND
FOR i = 1 TO n
PRINT x(i);
NEXT