Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,S:Integer;
Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
{Tính tổng}
S:=0;
For i:=1 To N Do
If A[i]<0 Then S:=S+A[i]*A[i];
{In kết quả ra màn hình}
Writeln(‘S= ’, S);
Readln;
End. 
Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies
Ngay sau khi Thanh Niên đăng bài , một trong những đối tác chính của Google tại VN đã thừa nhận điều này.
With the impending Drupal 8 code freeze, developers will be scrambling to get their modules ready in time for the official release
Apple đã xác nhận tổ chức một sự kiện báo chí vào thứ Tư, ngày 7/3, mà nhiều khả năng sẽ là nơi hãng cho giới thiệu chính thức mẫu máy tính bảng iPad 3 rất được trông đợi.
