program oken; uses crt; var a: array [1..10] of integer; s,n,i: integer; begin clrscr; s:=0; writeln('NHAP 10 PHAN TU CUA MANG A'); for i:=1 to 10 do begin write('A[',i,']: '); readln(a[i]); s:=s+sqr(a[i]); end; writeln('Tong binh phuong: ',s); writeln('NHAN ENTER DE KET THUC'); readln; end.
