var

s:longint;

begin

     clrscr;

s:=1;

for i:=1 to 100 do s:=s*i;

write(s);

     readln;

end.

var

s:longint;

begin

     clrscr;

s:=1;

for i:=1 to 100 do s:=s*i;

     readln;

end.

var

     Windows, Winword, Excel, TB: real;

begin

     clrscr;

     writeln('Nhập điểm thi Windows:');

     readln(Windows);

     writeln('Nhập điểm thi Winword:');

     readln(Winword);

     writeln('Nhập điểm thi Excel:');

     readln(Excel);

    TB := (Windows + Winword + Excel) / 3;

     writeln('Điểm trung bình: ', TB:0:1);

     readln;

end.

var i,n:longint; a:array[1..1000] of longint;

begin

readln(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

     if a[i] mod 2=0 then 

         begin

              inc(k);

              b[k]:=a[i];

         end

else

begin

inc(t);

c[t]:=a[i];

end;

for i:=1 to k-1 do

for j:=i+1 to k do

if b[i]<b[j] then

begin

d:=b[i];

b[i]:=b[j];

b[j]:=d;

end;

for i:=1 to  t-1 do

for j:=i+1 to t do

if c[i]>c[j] then

begin

d:=c[i];

c[i]:=c[j];

c[j]:=d;

end;

for i:=1 to k do write(b[i],' ');

for i:=1 to t do write(c[i],' ');

end.

Tìm số n sao cho tổng các chữ số của n lớn hơn hoặc bằng k