MODULE inflation; (* DEE 2023-07-25 *)
  (* From PASCAL: user manual and report, pg. 3 *)
  FROM STextIO IMPORT WriteString, WriteLn;
  FROM SWholeIO IMPORT WriteCard;
  FROM SRealIO IMPORT WriteReal;

  CONST n = 10;
  VAR i: CARDINAL; w1,w2,w3: REAL;
BEGIN i := 0; w1 := 1.0; w2 := 1.0; w3 := 1.0;
  REPEAT INC(i);
    w1 := w1 * 1.07;
    w2 := w2 * 1.08;
    w3 := w3 * 1.09;
    WriteCard(i,2); WriteString('  ');
    WriteReal(w1,11); WriteString('  ');
    WriteReal(w2,11); WriteString('  ');
    WriteReal(w3,11); WriteString('  ');
    WriteLn
  UNTIL i=n
END inflation.