Синформатикой. даны два целых числа a и b (a < b). вывести в порядке убывания все целые числа, расположенные между a и b (не включая числа a и b), а также количество n этих чисел. надо решить в паскале тремя заранее .

var a,b,k:integer;

begin

readln(a,b);

for b:=b-1 downto a+1 do

begin

writeln (b);

k:=k+1

end;

writeln('k=',k)

end.

var a,b,k:integer;

begin

readln(a,b);

while b>a+1 do

begin

b:=b-1;

writeln (b);

k:=k+1

end;

writeln('k=',k)

end.

var a,b,k:integer;

begin

readln(a,b);

repeat

b:=b-1;

writeln (b);

k:=k+1

until b=a+1;

writeln('k=',k)

end.