var n,so:integer;
a:array[1..32000]of integer;
S1,S2,S3,i:longint;
b:boolean;
begin
write('n=');readln(n);
writeln('nhap lan luot n chu so');S1:=0;S2:=0;
for i:=1 to n do begin
readln(a[i]);
if i mod 2=0 then s1:=s1+a[i] else S2:=S2+a[i];
S3:=S3+a[i];
end;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=n downto 1 do
write(a[i],' ');
writeln;
for i:=1 to n div 2 do
write(a[i*2],' ');
i:=2;b:=true;
while b and(i<sqrt(s1)) do begin
b:=not(s1 mod i=0);
i:=i+1;
end;
writeln(s1,' ',b);
for i:=1 to n div 2 +(n mod 2)do
write(a[i*2-1],' ');so:=0;
for i:=1 to trunc(sqrt(s2)) do
if s2 mod i=0 then so:=so+i;
b:=s2=so;
writeln(s2,' ',b);
so:=trunc(sqrt(s3));
b:=so*so=s3;
write(s3,' ',b);
readln;
end.
có gì sai mong bn thông cảm