Помогите!! Срочно!! Составить с помощью While программу для нахождения суммы пяти первых четных чисел.

Program v;Var a,b,n:integer;BEGINwhile (n < 5) do beginreadln (a);if (a mod 2 = 0) then beginb:=b+a;n:=n+1;end;end;writeln (b);END.