var a:array [1..100] of integer;
i,min,n:integer;
begin 
write ('Kol-vo elementov=');
readln (n);
writeln ('Zapolnite massiv');
for i:=1 to n do 
begin
write ('a[',i,']='); readln (a[i]);
end;
for i:=1 to n do
if a[i]>0 then begin min:=a[i]; break; end; 
for i:=1 to n do
if (a[i]<min) and (a[i]>0) then min:=a[i];
if min>0 then
writeln ('Min=',min) else writeln ('Takix net');
end.