'BEGIN' 'COMENT' COMPUTE POWERS OF A; 'INTEGER'V; 'RELAL' A,X; WRITE(1,"FOR WHAT NUMBER WOULD YOU LIKE THE FIRST TEN POWERS?"); X:=1; READ (1,A); SKIP; 'FOR' V:=1 'STEP' 1 'UNTIL'10 'DO' 'BEGIN' X:=A*X; WRITE (1,A," TO THE", V ," EQUALS",X); SKIP; 'END' SKIP;SKIP; 'END' $