Найти сумму всех целых чисел от A до B (A>B). В паскале пожалуйста)буду очень благодарен)

Question

Найти сумму всех целых чисел от A до B (A>B). В паскале пожалуйста)буду очень благодарен)

Answer 1

Program Z1;
 var
  s,i:integer;
  a,b:real;
Begin
 readln(a,b);
 s:=0;
 for i:=b to a do
 s:=s+i;
writeln(s);
end.