program teste ;
uses wincrt ;
var T: array[1..10]of real ;
i,n: integer ;
v: real;
true, false:boolean;