Определить сумму всех чисел от n до m.

На языке паскаль
program summa;

var
n, m, i, sum: integer;
begin

write (' введите N: '); readln (n);
write (' введите M: '); readln (m);
sum := 0;
for i:=n to m do
sum := sum + i;
writeln (sum);

readln
end.

Var n,m : Integer;
Begin
 Write (' введите N: '); Readln (n);
 Write (' введите M: '); Readln (m);
 Writeln ((n+m)*(m-n+1) div 2);
end.