Найти сумму всех целых чисел от a до b (a> b). в паскале )буду )

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.