Помогите пожалуйста! Буду благодарна Вывести на экран все четные числа из промежутка от 1 до 100 в прямом и обратном порядке. (в паскаль)

var a:array[1..100] of integer; i:integer; c,e:real; begin for i:=1 to 100 do begin   a[i]:=i;   e:=a[i] div 2;   c:=a[i]/2;    if e=c then      write(a[i],' ');  end; for i:=100 downto 1 do  begin    a[i]:=i;   e:=a[i] div 2;   c:=a[i]/2;    if e=c then      write(a[i],' ');  end; end.