MODULE utanfor2; FROM InOut IMPORT WriteString, WriteCard, WriteLn; BEGIN WriteString("Kvadrattabell"); WriteLn; WriteLn; WriteString(" n n*n"); WriteLn; WriteString("== ==="); WriteLn; WriteCard(5,2); WriteCard(5*5,6); WriteLn; WriteCard(6,2); WriteCard(6*6,6); WriteLn; WriteCard(7,2); WriteCard(7*7,6); WriteLn; WriteCard(8,2); WriteCard(8*8,6); WriteLn; WriteCard(9,2); WriteCard(9*9,6); WriteLn; WriteCard(10,2); WriteCard(10*10,6); WriteLn; WriteCard(11,2); WriteCard(11*11,6); WriteLn; WriteCard(12,2); WriteCard(12*12,6); WriteLn; WriteCard(13,2); WriteCard(13*13,6); WriteLn; WriteCard(14,2); WriteCard(14*14,6); WriteLn; WriteCard(15,2); WriteCard(15*15,6); WriteLn; END utanfor2. (* Exempel på korkad programmerare Nästa: bank.mi *)