type B=array [1..100] of integer;

Var

a:B;

min,max,tg,tg1,t,m,n,i:integer;

begin

writeln('nhap n');readln(n);

for i:=1 to n do

begin

writeln('a[',i,']=');readln(a[i]);

end;

{ min }

min:=a[1];tg:=0;

for i:=2 to n do

if a[i]<min then

begin

min:=a[i];

tg:=i;

end;

writeln('gia tri nho nhat la :');writeln(min);

{max}

max:=a[1];tg1:=0;

for i:=2 to n do

if a[i]>max then

begin

max:=a[i];

tg1:=i;

end;

writeln('gia tri lon nhat la :');writeln(max);

{chia 5}

t:=0;

for i:=1 to n do

if (a[i] mod 5) =0 then

begin

writeln(a[i]);

t:=t+a[i];

end;

writeln('tong la');writeln(t);

readln;

end.