Pascal
var
m,n,i,s : integer;
begin
writeln('Введите m и n (m<n):');
readln(m, n);
s:=0;
for i:=m to n do
if i mod 2 <> 0 then
s:=s+i;
writeln('Сумма нечётных чисел =',s);
end.
