"Delphi" Programlama dilinde "1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.

program SumOfEvenNumbers;

uses
  SysUtils;

var
  s, n, i: Integer;
begin
  s := 0;
  Write('Sayi Girin: ');
  ReadLn(n);
  
  if n > 1 then
  begin
    for i := 1 to n do
    begin
      if i mod 2 = 0 then
      begin
        s := s + i;
      end;
    end;
    
    WriteLn;
    WriteLn('Toplam: ' + IntToStr(s));
  end
  else
  begin
    WriteLn;
    WriteLn('Sayi 1''den buyuk olmalidir.');
  end;
end.