MODULE age; FROM InOut IMPORT ReadCard, WriteString, WriteLn; VAR age : CARDINAL; BEGIN WriteString("Programmet undersöker vilken åldersgrupp en person tillhör."); WriteLn; WriteString("Hur gammal är personen? "); ReadCard(age); WriteString("Åldersgrupp: "); IF age < 13 THEN WriteString("barn.") ELSIF age < 20 THEN WriteString("tonåring.") ELSIF age < 65 THEN WriteString("vuxen.") ELSE WriteString("pensionär.") END; WriteLn END age. (* Exempel på IF-sats med många grenar Nästa month.mi *)