[pdp8.git] / sw / src / pascal / GLERR.PS

PROGRAM GAUSS (INPUT, OUTPUT);

VAR I, J, K, L, M, N: INTEGER;
    Q: REAL;
    A: ARRAY[1..9, 1..10] OF REAL;

BEGIN
  READ(N); WRITELN(N);
  FOR I := 1 TO N DO
    BEGIN
    FOR J := 1 TO N+1 DO BEGIN READ(Q); WRITE(Q:6:2) END;
    WRITELN
    END
END.
Commit	Line	Data
81e70d48 PH	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.