Viết chương trình Pascal nhập 1 mảng 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

uses crt;
var a:array[1..10] of real;
        i:longint;
        s:extended;
begin
        clrscr;
        for i:=1 to 10 do
                begin
                        write(‘Nhap gia tri phan tu thu ‘,i,’: ‘); readln(a[i]);
                        if a[i]<0 then s:=s+sqr(a[i]);
                end;
        writeln(‘Tong binh phuong cac so am: ‘,s:0:2); 
        readln;
end.