program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,s:longint;
begin
        clrscr;
        write('Nhap so phan tu cua mang: '); readln(n);
        s:=0;
        for i:=1 to n do
                begin
                        write('A[i]: '); readln(a[i]);
                        if a[i] mod 2=1 then
                                s:=s+sqr(a[i]);
                end;
        writeln('Tong binh phuong cac so le trong mang: ',s);
        readln;
end.

Hãy giúp mọi người biết