MODULE bank; FROM InOut IMPORT WriteString, WriteCard, WriteReal, WriteLn; CONST startkapital = 1000.0; ranta = 7.0; (* ränta *) VAR n : CARDINAL; saldo : REAL; BEGIN WriteString("Ränta på ränta"); WriteLn; WriteLn; WriteString("år saldo "); WriteLn; WriteString("== ========"); WriteLn; saldo := startkapital; FOR n := 1 TO 10 DO saldo := saldo * (1.0+ranta/100.0); WriteCard(n,2); WriteReal(saldo,11,2); WriteLn END END bank. (* Exempel på CONST - namngivna konstanter VAR - flera variabler, av olika typ använding av variabler i loopar WriteReal Nästa: bank2.mi *)