MODULE sinken;
IMPORT Display;
PROCEDURE ProgMain*;
VAR anzahl: REAL;
jahr: INTEGER;
ch: CHAR;
BEGIN
jahr:=1999;
anzahl:=6.0E9;
REPEAT
jahr:=jahr-1;
anzahl:=anzahl/1.018;
Display. WriteInt (jahr, 4);
Display. WriteStr (": ");
Display. WriteReal (anzahl, 15);
Display. WriteLn;
UNTIL anzahl<1;
Display. ReadChar (ch);
END ProgMain;
END sinken.