Напишите программу на языке Паскаль для решения задачи:

Насчет суммы не понял: сумму каких чисел надо посчитать - x и y или всех чисел, находящихся в этом промежутке? Ладно, сделаю и то, и другое:

Program P1;
uses crt;
var i, s, x, y: integer;
begin
clrscr;
s:=0;
write ('Введите 1-ое число, после чего нажмите клавишу Enter: x=');
readln (x);
write ('Введите 2-ое число (> 1-го), после чего нажмите клавишу Enter: y=');
readln (y);
if x>=y then writeln ('Ошибка: 2-ое число больше или равно 1-ому числу.') else begin
write ('Целые числа от ', x, ' до ', y, ':');
for i:=x to y do begin
write (' ', i);
end;
writeln (' ');
writeln (x, ' + ', y, ' = ', x+y);
for i:=x to y do begin
s:=s+i;
end;
writeln ('Сумма чисел от ', x, ' до ', y, ': ', s);
end;
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.

X и Y (X<Y) значит как минимум Y-X >= 1 а чисел между ними на 1 меньше
то бишь 6-5=1 и -1 станет 0, значит чисел между 0
Y-X-1 -кол чисел между
Вывод всех чисел от и до включительно for i:= X to Y do Write(i, ' ');
Можно и сумму сразу считать
S := 0;
for i:= X to Y do begin S := S + i; Write(i, ' ') end;
WriteLn;
WriteLn('Sum = ', S);

Думаю это тебе поможет сделать

var s, i, a, b, x, y:integer;
begin
s := 0;
writeln('Введите X и Y');
readln(a, b);
if a<b then begin
x := a;
y := b;
end;
else begin
x := b;
y := a;
end;
writeln('Целых чисел между',x,' и ',y,': ',y - x - 1);
for i := x+1 to y-1 do begin
write(i,' ');
s := s + i;
end;
writeln('');
writeln('Сумма: ',s);
end.