A large commit.

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

diff --git a/sw/src/pascal/DIVIDE.PS b/sw/src/pascal/DIVIDE.PS
new file mode 100644 (file)
index 0000000..2b65279
--- /dev/null
+++ b/sw/src/pascal/DIVIDE.PS
@@ -0,0 +1,16 @@
+PROGRAM DIVISION(INPUT,OUTPUT);
+VAR A,I,B,N:INTEGER;
+BEGIN
+READ(A,B,   N);
+WRITE(A:5," :",B:5," =", A   DIV  B:5,".");
+FOR  I:=1  TO  N  DO
+     BEGIN
+     A:=(A  MOD  B)*10;
+     WRITE(A  DIV  B:1);
+     IF I MOD 50=0
+     THEN BEGIN
+          WRITELN;
+          WRITE(" ":20)
+          END
+     END
+END.