const
 maxn = 1000;
 n = 5;
var
 a:array[1..maxn] of integer;
 i,num:integer;

 function Max_(b:array of integer):integer;   {функция определения максимального введенного числа}
 var
   i,max:integer;
 begin
   max := -maxint;
   for i := 1 to num do
     if b[i] > max then
     max := b[i];
   Max_ := max;
 end;

begin
 WriteLn('Сколько элементов вы хотите ввести?');
 ReadLn(num);
 for i := 1 to num do
   begin
     Write('Введите ',i,'-й элемент');
     Read(a[i]);   {занесем введенные числа в массив}
   end;
 WriteLn(Max_(a));
end.