НАпишите программу вывода четных чисел от 2 до 100 включительно

Const N=99;              var A: array[1..N] of integer;               i:integer;          begin            for i:=1 to N do             A[i]:=i+1;           for i:=1 to N do     if A[i] mod 2=0 then writeln(A[i]);           end.