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.

uses crt;

var A : array [1 .. 100] of integer;

    i, n, s : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

for i := 1 to n do

    begin

        write('Nhap so thu ', i ,' = '); readln(A[i]);

        if A[i] mod 2 <> 0 then s := s + sqr(A[i]);

    end;

write('Day da nhap : ');

for i := 1 to n do write(A[i], ' ');

writeln; write('Tong binh phuong cac so le : ', s);

readln

end.