File: DIVIDE.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

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.

---