program bai3;

type KM=array [1..100]of LongInt ;

var a,b:KM;

i,N,t:Integer;

begin

write('nhap N =');Readln(N);

t:=0;

for i:=1 to n do

begin

Write('nhap a [',i,']=');

readln (a[i]);

if (a[i] mod 2=0) then [i]:=sqr(b[i])

else b[i]:=a[i];

end;

readln;

end.

a) Với N= 6

A= 5 6 3 4 5 8

B=?

b)Với N = 6

A= 5 7 3 1 11 15

B= ?