Даны 2 вещественных числа. сколько на отрезке между ними целых чисел паскаль

var

a,b:real;

i,min,max,count:integer;

begin

readln(a,b);

if a<b then

begin

min:=trunc(a)+1;

max:=trunc(b)

end

else

begin

min:=trunc(b)+1;

max:=trunc(a)

end;

for i:=min to max do

count:=count+1;

write(count)

end.