uses crt;
var i,j,n,tam,k,s:integer;
a:array[1..100] of integer;

function kt(n:integer):boolean;
var i:integer;
s1,s2:string;
begin
 str(n,s1);
 s2:='';
 for i:=1 to length(s1) do s2:=s2+s1[i];
 if (s2=s1) and(length(s2)<>1) then kt:=true else kt:=false;
end;

begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if kt(a[i]) then s:=s+a[i];
end;
k:=0;
for i:=1 to n do
 if a[i] mod 5=0 then
 begin
  k:=k+1;
  tam:=a[i];
  a[i]:=a[k];
  a[k]:=tam;
 end;
writeln('day so sau khi sap xep cac ptu chia het cho 5 len dau day la:');
for i:=1 to n do write(a[i],' ');
writeln;
write('cac ptu chia het cho 7 la:');
for i:=1 to n do
 if a[i] mod 7=0 then write(a[i],' ');
writeln;
write('tong cac so doi xung trong day so la:',s);
readln;
end.