Помогите с задачей на паскале

Если отрезок задавать натуральными числами, то вот программа:

 Program P1;  

uses crt;  

var a, b, i, n, s: integer;  

begin  

clrscr;  

writeln ('Введите с клавиатуры границы отрезка натуральных чисел (только числовые значения (натуральные (целые, >0) числа)) по очереди. После ввода каждой границы нажимайте клавишу Enter.');  

write ('Введите левую границу отрезка: ');  

readln (a);  

if a

Чтоб не выводить большие массивы данных, можно значение целой части переменной b взять, скажем, не более чем трёх- или четырёхзначным. А вообще a и b лучше брать вещественными, так как нигде в задании не написано, что они целые, а тем более натуральные. Затем так:

 uses math; 

var a, b: real; 

j, k, l, m, n: integer; 

s :longint = 0; 

begin 

  write('a b: '); 

  readln(a, b); 

  j := 0; 

  l := ceil(a); 

  m := floor(b); 

  n := 0; 

  if m < 1 then 

    writeln('На отрезке [a;b] нет натуральных чисел') 

  else 

    begin 

      if l < 1 then l := 1; 

      for k := l to m do 

        begin 

          write(k: 6); 

          j := j + 1; 

          if j = 10 then 

            begin 

              j := 0; 

              writeln() 

            end; 

          s := s + k; 

          if odd(k) then n := n + 1 

        end; 

      if j > 0 then writeln(); 

      writeln('S = ', s,', ', n, ' нечётных чисел') 

    end 

end. 

Пример работы:А вообще-то сумму натуральных чисел из [a;b] незачем считать в цикле - для этого есть формула арифметической прогрессии. Есть формула и для количества нечётных чисел, заключённых в натуральных пределах [l;m], но в данном случае всё таки пусть вычисления будут в одном цикле.