С помощью оператора while:
var  
    i,sum:integer;
  begin  
    sum:=0;  
     i:=1; 
     while i<=10 do   
      begin   
        sum:=sum+i;    
       i:=i+2;   
     end; 
   writeln ('Summa: ',sum);
end.

Пойдет?




uses crt;
 
var
  i: byte;
  s: word;
 
begin
  i := 1;
  s := 0;
  while i <= 10 do
  begin
    if i mod 2 0 then
      s := s + i;
    inc(i);
  end;
  writeln('Сумма  нечётных чисел от 1 до 10: ', s);
  readln;
 
end.