Напишите программу нахождения суммы положительных нечетных чисел меньших 100

Question

Напишите программу нахождения суммы положительных нечетных чисел меньших 100

Answer 1

Var a,b,c: integer;begin 
  a:=1; 
 while a<100 do <br>  begin
   c:=c+a;
   a:=a+1;
   end; 
  writeln(c);
end.