{ =========================================================== CECI EST UN COMMENTAIRE qui prendra fin a la prochaine accolade fermante TP1 - ift2030 - automne 2002 ============================================================ } program tp1Source9; { ==================================================== deux variables globales ==================================================== } var x,y: integer; procedure nouvelleProcedure(a,b:integer; t:array[1..10] of integer); var a: integer; begin x := 2 end { ==================================================== le bloc principal (l'equivalent du main en C/JAVA) ==================================================== } begin x := 3; y := 3*nouvelleProcedure(1,2,tab); write(x,y,45+2) {mechant programme n'est pas ? } end