uses crt; var lst:Array[1..100] of integer; i,n,tong:longint; Begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do Begin write('Phan tu thu ',i,' = '); readln(lst[i]); if lst[i] mod 2 = 1 then tong:=tong+lst[i]*lst[i]; end; for i:=1 to n do write(lst[i],' '); writeln; write('Tong la: ',tong); readln; end.
