HELPP MEE HỠI NHỮNG HSG TIN PLSSS <3 cho var a:array[52..101] of integer; Hãy viết chương trình: tính hiệu các phần tử có số thứ tự chẵn.

uses crt;
var n,i,hieu:longint; a:array[52..101]of integer;
begin
clrscr;
   write(‘Nhap so phan tu: ‘);readln(n);
   for i:=1 to n do
      begin
         write(‘a[‘,52+i-1,’]=’);readln(a[52+i-1]);
      end;
   hieu:=0;
   for i:=52 to 52+n-1 do if i mod 2=0 then dec(hieu,a[i]);
   writeln(‘Hieu: ‘,hieu);
readln
end.