Uses crt;

Const finp='data.in';

fout='data.ou';

Var fi,fo:Text;

n,d,i,j,tg,tam,t:longint;

a,b:array[1..1000] of longint;

ok,kt:boolean;

{}

Procedure Nhap;

Begin

n:=0;

While not eof(fi) do

Begin

inc(n);

Read(fi,a[n]);

End;

n:=n-1;

Write(fo,'Day co ',n,' phan tu ');

End;

{}

Procedure Tangdan;

Begin

For i:=1 to n do

For j:=1 to n do

if a[i]<a[j] then

Begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

End;

For i:=1 to n do Write(fo,a[i],' ');

End;

{}

Procedure Ngto(s:longint);

Var e:longint;

begin

ok:=true;

For e:=2 to trunc(sqrt(s)) do

if s mod e=0 then

Begin

ok:=false;

Break;

End;

if (s=0) or (s=1) then ok:=false;

End;

{}

Procedure Ngtotangdan;

Begin

For i:=1 to n do

Begin

ngto(a[i]);

if ok then

begin

inc(d);

b[d]:=a[i];

End;

End;

For i:=n downto 1 do

Begin

ngto(a[i]);

if not ok then

Begin

inc(d);

b[d]:=a[i];

End;

End;

For i:=1 to d do Write(fo,b[i],' ');

End;

{}

Procedure Chia357;

Begin

For i:=1 to n do

if (a[i] mod 3=0) and (a[i] mod 5=0) and (a[i] mod 7=0) then Write(fo,a[i],' ');

End;

{}

Procedure SieuNgto;

Begin

For i:=1 to n do

Begin

ngto(a[i]);

if ok then

Begin

tg:=a[i];

while tg<>0 do

Begin

ngto(tg);

kt:=true;

if (not ok) then

begin

kt:=false;

break;

End;

tg:=tg div 10;

End;

if (kt) and (a[i] div 10<>0) then Write(fo,a[i],' ');

End;

End;

End;

{}

procedure So_hoan_thien;

Begin

For i:=1 to n do

Begin

t:=0;

For j:=1 to a[i]-1 do

if a[i] mod j=0 then t:=t+j;

if t=a[i] then Write(fo,a[i],' ');

End;

End;

{}

Begin

Clrscr;

Assign(fi,finp);Reset(fi);

Assign(fo,fout);Rewrite(fo);

Nhap;

Writeln(fo);

Tangdan;

Writeln(fo);

Ngtotangdan;

Writeln(fo);

chia357;

Writeln(fo);

sieungto;

Writeln(Fo);

so_hoan_thien;

Close(fi);

close(fo);

End.

1.Tuyệt đối trung thành với Tổ quốc và nhân dân Việt Nam,với Đảng cộng sản Việt Nam, với Nhà nước Cộng hoà xã hội chủ nghĩa Việt Nam.Suốt đời phấn đấu, hy sinh vì độc lập tự do,chủ quyền và toàn vẹn lãnh thổ,vì an ninh tổ quốc.

2.Nghiêm chỉnh và triệt để chấp hành mọi chủ trương đường lối,chính sách của Đảng,pháp luật của nhà nước,nghị quyết, chỉ thị và Điều lệnh Công an nhân dân. Sẵn sàng đi bất cứ đâu làm bất cứ việc gì khi Tổ Quốc, Đảng và nhân dân cần đến.

3.Kính trọng, lễ phép với nhân dân. Sẵn sàng bảo vệ tính mạng, tài sản, quyền và lợi ích hợp pháp của nhân dân. Suốt đời tận tuỵ phục vụ nhân dân,vì cuộc sống bình yên và hạnh phúc của nhân dân

4.Đề cao cảnh giác, kiên quyết mưu trí dũng cảm, đấu tranh phòng, chống các thế lực thù địch, các loại tội phạm và các hành vi vi phạm pháp luật.

5.Ra sức học tập, thực hiện nghiêm túc 6 điều Chủ tịch Hồ Chí Minh dạy Công an nhân dân, luôn xứng đáng với danh dự và truyền thống của Công an nhân dân Việt Nam.