1) program abc;
var
n,i,s:integer;
readln(n); s:=0;
for i:=1 to n do
s:=s+i;
writeln('cac so chan:');
for i:=1 to n do
if i mod 2 =0 then write(i,' ');
writeln('cac so le:');
for i:=1 to n do if i mod 2 <>0 then write(i,' ');
writeln;
end.
2)
var
n,max,min,i:integer;
a:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; min:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln('so lon nhat ',max);
writeln('so nho nhat',min);
end.