MODULE skott4; FROM InOut IMPORT ReadInt, WriteInt, WriteString, WriteLn; PROCEDURE isLeapYear(y: INTEGER): BOOLEAN; BEGIN RETURN y MOD 4 = 0 END isLeapYear; PROCEDURE WriteBool(b: BOOLEAN); BEGIN IF b THEN WriteString("sant") ELSE WriteString("falskt") END END WriteBool; VAR year : INTEGER; BEGIN WriteString("Programmet undersöker om ett år är ett skottår."); WriteLn; WriteString("Vilket år ska undersökas? "); ReadInt(year); WriteString("Det är "); WriteBool(isLeapYear(year)); WriteString(" att "); WriteInt(year,1); WriteString(" är ett skottår."); WriteLn END skott4. (* Exempel på Deklaration av rena procedurer sämre exempel: skriver inte ut samma sak som skott3 Nästa: month2.mi *)