procedure TForm1.Button1Click(Sender: TObject);
Var
  i1, iResult: Integer;
begin
  iResult := 0;
  for i1 := 2 to 20 do
  begin
    if ((i1 mod 2) = 0) then Inc(iResult, i1);
  end;
  ShowMessage(IntToStr(iResult));
end;

 
Program EvenOrNot;
 
{$APPTYPE CONSOLE}
 
Uses
  SysUtils;
 
Var i,counter:LongInt;
    TheOdds:Boolean; {true or false}
Begin
   i:=2;
   counter:=0;
   Write('The even numbers are: ');
   While i<=21 Do Begin
      TheOdds:=Odd(i);
      If (TheOdds=False) Then Begin
         Write(i,' ');
         counter:=counter+i;{increase *counter* by *i*}
      End;{of if}
      Inc(i,1); {increase *i* by 1}
   End;{of while}
   WriteLn; {put the cursor to the home of the next line}
   Write('Total : ',counter);
   ReadLn; {press enter to quit}
End. {of main}
{
-=Notes=-
ODD FUNCTION:Tests if the argument is an odd number.
DECLARATION: ODD(X:LONGINT):BOOLEAN;
THE ODD FUNCTION RETURNS *TRUE* IF *X* IS AN ODD NUMBER
-=End Of Notes=-
Created By FlamingClaw 2009.07.12
}