Var a:array[1..1000] of longint;
n:integer; min,max:longint; i:byte;
begin
Writeln('vvedite kol-vo elementow');
repeat
readln(n);
until ((n>=1) or ( n<=1000));
for i:=1 to n do
begin
begin
readln(a[i]);
Write(i,' chlen = ');
Write(' ', a[i],' ');
end;
Writeln;
end;
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if a[i]<min
then min:=a[i];
if a[i]>max
then
max:=a[i];
end;
Writeln('minimal = ',min,' maxmal = ',max);
readln;
end.

Var 
 a:array[1..1000] of longint; 
 n:integer; 
 min,max:longint; 
 i,Imin,Imax:byte; 
begin 
 Writeln('vvedite kol-vo elementow'); 
 repeat 
  readln(n); 
 until ((n>=1) and ( n<=1000)); 
 for i:=1 to n do 
  begin  
   Write('a[',i,']= '); 
   readln(a[i]); 
  end; 
 min:=a[1]; 
 max:=a[1]; 
 Imin:=1;
 Imax:=1;
 for i:=2 to n do 
  begin 
   if a[i]<min then 
    begin
     min:=a[i]; 
     Imin:=i;
    end;
   if a[i]>max then 
    begin
     max:=a[i]; 
     Imax:=i;
    end;
  end; 
 Writeln('minimal: a[',Imin,'] = ',min,'   maxmal: a[',Imax,'] = ',max); 
 readln; 
end.

var a,b:longint;
begin
Writeln('vvedite nomer bileta');
repeat
readln(a);
until ((a>= 100000) or (a<=999999));
a:=a div 1000;
b:=a mod 1000;
Writeln(a,' ',b);
a:=(a mod 10) + (a mod 100 div 10) + (a div 100);
b:=(b mod 10) + (b mod 100 div 10) + (b div 100);
Writeln(a,' ',b);
if a=b
then Writeln('bilet happy')
else Writeln('bilet nohappy');
readln;
end.