2.11BSD#431 - /usr/src/ucb/pascal/pi/TESTS/test.p

   1: {program 0.1
   2:  assuming annual inflation rates of 7, 8, and 10 per cent,
   3:  find the factor by which the frank, dollar, pound sterling,
   4:  mark, or guilder will have been devalued in
   5:  1, 2, ... n years.}
   6: 
   7: program inflation(output);
   8: 
   9: const   n = 10;
  10: var i : integer;    w1,w2,w3 : real;
  11: begin   i := 0; w1 := 1.0; w2 := 1.0; w3 := 1.0;
  12:     repeat i:= i+1;
  13:         w1 := w1 * 1.07;
  14:         w2 := w2 * 1.08;
  15:         w3 := w3 * 1.10;
  16:         writeln(i,w1,w2,w3);
  17:     until i=n
  18: end.