program mmpostup;
var s,a,i,p,min,m,max:integer;
begin
writeln('zadaj pocet cisel');
readln(s);
writeln('zadaj prve cislo');
readln(a);
min:=a;
max:=0;
for i:=2 to s do begin
writeln('zadaj dalsie cislo');
readln(m);
if m<min then min:=m;
if m>min then max:=m;
end;
writeln('minimum je ',min);
writeln('maximum je ',max);
readln;
end.