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