Program Maximum;

 uses Crt;

 const  N=10;  

 type Pole = array[1..N] of integer;

 var  P: Pole;  Max,i: integer ;

    begin

            For i:=1 to N do begin

                          write(i,'.prvek pole: ');

                          readln(P[i]); 

                             end;                                                                     

            Max:=P[1];

            For i:=2 to N  do

            begin   if P[i]>Max    then Max:=P[i]   end;

            writeln('Maximum= ',Max);

    repeat until keypressed;

    end.