uses crt;
var n, i, j, s, pc, pl, sc , sl, max, min: integer;
a:array[1..1000] of integer;
begin
clrscr;
readln(n);
pc:=1;
pl:=1;
for i:= 1 to n do
if i mod 2 = 0 then
begin
sc:=sc+i;
pc:=pc*i;
end
else
begin
sl:=sl+i;
pl:=pl*i;
end;
writeln('Tong chan: ', sc);
writeln('Tong le: ', sl);
writeln('Tich chan: ', pc);
writeln('Tich le: ', pl);
write('So nguyen to: ');
for i:= 2 to n do
begin
if (i = 2) or (i = 3) then write(i, ' ')
else
for j:= 2 to i do
begin
if i = j then write(i, ' ');
if i mod j = 0 then
break;
end;
end;
writeln;
readln(n);
for i:= 1 to n do
read(a[i]);
min:= a[1];
for i:= 1 to n do
begin
if max < a[i] then max:= a[i];
if min > a[i] then min:= a[i];
end;
writeln('So nho nhat: ', min);
writeln('So lon nhat: ', max);
end.
