{ =========================================================== CECI EST UN COMMENTAIRE qui prendra fin a la prochaine accolade fermante programme: source1.mp TP1 - ift2030 - automne 2002 ============================================================ } program tp1Source7; { ==================================================== deux variables globales ==================================================== } var x,y: integer; { ==================================================== une procedure avec deux parametres, elle possede une variable locale x et trois parametres: deux entiers a et b et un tableau de 10 entiers t ==================================================== } procedure nouvelleProcedure(a,b:integer; t:array[1..10] of integer) ; var x: integer; var a: integer; begin x; 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