Program quinze_numeros_fixes ;
var W:array [1..15] of integer;
    maior_num,position,i:integer;
    
 Begin
 	 for i:=1 to 15 do
 	 begin
	 write (' Escreva o numero para obter o maior numero ');
      readln(W[i]);
      end;
      
	maior_num:=W[1]; position:=1;
   for i:=2 to 15 do
   if W[i]>maior_num then
   begin
     maior_num:=W[i];
     position:=i;
   end;
   writeln ('o maior numero é ',maior_num,' e esta na posição ',position);	  
 End.
