CzarAlex 1)
var n,s,i:integer;
begin
s:=0;
write('Введите конечное число: ');
readln(n);
for i:=0 to n do s := s+i;
write('Сумма всех чисел в диапазоне от 1 до ',n,' = ',s);
end.

2)
var a,b,s,i:integer;
begin
s:=0;
write('Введите начальное и конечное число: ');
readln(a,b);
if(a<b) then a:=a
else begin a := a+b; b := a-b; a := a-b; end;
for i:=a to b do s := s + i*i;
write('Сумма квадратов всех чисел в диапазоне от ',a,' до ',b,' = ',s);
end.