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

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

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.