Ответ:

См. объяснение

Объяснение:

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.