Viết ct pascal nhập 1 mảng gồm 10 số thực bất kì .Báo ra màn hình tổng bình phương của các số âm trong mảng

program bai_tap;
uses crt;
var a:array[1..10] of integer;
n,i:byte;
s,max,min:integer;
begin
clrscr;
write(‘nhap so luong phan tu cua mang: ‘);
readln(n);
for i:= 1 to n do
begin
write(‘nhap phan tu thu [‘,i,’]= ‘);
readln(a[i]);
end;
{cau a) ======================}
writeln(‘mang ban vua nhap la: ‘)
for i:= 1 to n do
write(a[i]:4);
writeln;
{cau b) ======================}
s:=0;
for i:= 1 to n do
s:=s+a[i];
writeln(‘tong cac phan tu trong mang la: ‘,s);
{cau c) ======================}
max:=a[1];
for i:= 1 to n do
if max < a[i] then max:=a[i];
writeln(‘gia tri max la: ‘,max);
{cau d) ======================}
min:=a[i];
for i:= 1 to n do
if min > a[i] then min:=a[i];
writeln(‘gia tri nho nhat la: ‘,min);

readln