uses crt;
var
dizi :array [1..100] of integer;
i,k,max1,max2,b,j :integer;
ch:char;
 
procedure maksimum2;
begin
max1:=dizi[1];
for i:=2 to k do
  begin
  if max1 < dizi[i] then begin max1:=dizi[i]; j:=i; end;
  end;
 
dizi[j]:=-10000;
max2:=dizi[1];
for i:=2 to k do
  begin
  if max2 < dizi[i] then max2:=dizi[i];
  end;
 
end;
 
 
begin
clrscr;
writeln('Dizi boyutunu giriniz..: ');
readln(k);
writeln('Dizi degerlerini giriniz..: ');
for i:=1 to k do begin readln(b); dizi[i]:=b; end;
maksimum2;
writeln('Dizinin maksimum elemani:  ', max1,' Dizinin maksimum ikinci elemani: ', max2);
readln;
end.