X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;ds=sidebyside;f=sw%2Fsrc%2Fpascal%2FGLERR.PS;fp=sw%2Fsrc%2Fpascal%2FGLERR.PS;h=5e7230922d4f11dca425507b43e89a18d698f61f;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/src/pascal/GLERR.PS b/sw/src/pascal/GLERR.PS
new file mode 100644
index 0000000..5e72309
--- /dev/null
+++ b/sw/src/pascal/GLERR.PS
@@ -0,0 +1,14 @@
+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.