[Konrad]

Где-то так:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2,p:integer;
begin
  memo1.lines.clear;
  n1:=strtoint(edit1.Text);
  n2:=strtoint(edit2.Text);
  if n1>n2 then showmessage('n1>n2')
    else
    begin
      if (n1 mod 2) =0 then p:=n1 else p:=n1+1;
      memo1.lines.add('#0'+' = '+inttostr(p));
      n2:=(n2-p)div 2;
      for n1:=1 to n2 do
      begin
        p:=p+2;
        memo1.lines.add('#'+inttostr(n1)+' = '+inttostr(p));
      end;
      memo1.lines.add('# результат sum = '+inttostr(n1)+';');
    end;
end; 


Если что не так, просто вечер, думать не хочется

300-е сообщение