MODULE bank2; FROM InOut IMPORT WriteString, ReadCard, WriteReal, WriteLn; CONST startkapital = 1000.0; ranta = 7.0; (* ränta *) VAR n, antal : CARDINAL; saldo : REAL; BEGIN WriteString("Ränta på ränta"); WriteLn; WriteLn; WriteString("Hur många år ska kapitalet stå inne? "); ReadCard(antal); saldo := startkapital; FOR n := 1 TO antal DO saldo := saldo * (1.0+ranta/100.0); END; WriteString("Efter så många år är saldot "); WriteReal(saldo,1,2); WriteLn END bank2. (* Exempel på FOR - antalet varv bestäms av en variabel VAR - flera variabler, av samma typ WriteReal Nästa: bank3.mi *)