projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
5e7230922d4f11dca425507b43e89a18d698f61f
[pdp8.git]
/
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.