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