Program celiechisla;
Var x, y, count, sum: integer;
Begin
  Write('Введите два целых числа X и Y таких, что X<Y: ');
  Readln(x,y);
  count:=0;
  sum:=0;
  If x<y then
    begin
      writeln('целые числа, находящиеся в отрезке [', x,' ; ', y, ']:');
      while x<y+1 do
        begin
          write(x, ' ');
          sum:=sum+x;
          if x+1<y then count:=count+1;
          x:=x+1;
        end;
      Writeln;
      Writeln('Количество целых чисел между X и Y (не считая X и Y): ', count);
      Writeln('Сумма всех чисел отрезка: ', sum);
    end
  else writeln('Введённые числа не удовлетворяют условию.');
  Readln;
End.