sw/src/pascal/GLERR.PS

   1 PROGRAM GAUSS (INPUT, OUTPUT);
   2
   3 VAR I, J, K, L, M, N: INTEGER;
   4     Q: REAL;
   5     A: ARRAY[1..9, 1..10] OF REAL;
   6
   7 BEGIN
   8   READ(N); WRITELN(N);
   9   FOR I := 1 TO N DO
  10     BEGIN
  11     FOR J := 1 TO N+1 DO BEGIN READ(Q); WRITE(Q:6:2) END;
  12     WRITELN
  13     END
  14 END.