Составьте и запишите компьютерную программу на языке программирования паскаль для решения следующей : вычислить сумму всех натуральных чисел от заданного числа а до заданного пользователем числа в

Попробуй это
Program Summa;  
var s,i,n:integer;        
begin 
write('Введите n:' );
readln(n);
s:=0;
for i:=1 to n do
  if (i mod 2)<>0 then s:=s+i;
 
writeln;
writeln('Сумма нечётных чисел равна:',s);
readln; {для паузы}
end.