sw/src/pascal/DIVIDE.PS

   1 PROGRAM DIVISION(INPUT,OUTPUT);
   2 VAR A,I,B,N:INTEGER;
   3 BEGIN
   4 READ(A,B,   N);
   5 WRITE(A:5," :",B:5," =", A   DIV  B:5,".");
   6 FOR  I:=1  TO  N  DO
   7      BEGIN
   8      A:=(A  MOD  B)*10;
   9      WRITE(A  DIV  B:1);
  10      IF I MOD 50=0
  11      THEN BEGIN
  12           WRITELN;
  13           WRITE(" ":20)
  14           END
  15      END
  16 END.