Ответ:

var x,y,i,sum:integer;

begin

 Write('Введите переменную X: ');

 ReadLn(X);

   Write('Введите переменную Y: ');

 ReadLn(Y);

 Write('Целых чисел между X и Y ');

 WriteLn(Y-X+1);

 sum := 0;

 for i := X to Y do begin

   Write(i);

   Write(' ');

   sum+=i;

 end;

 Writeln();

 Write('Сумма чисел: ');

 Write(sum);

end.

Объяснение: