Program kokoko;
uses crt;
var
a,b,c,i:integer;
begin
writeln('А должно быть меньше В');
Writeln('Введите A');
read(a);
Writeln('Введите В');
read(b);
c:=-2; // для подсчета кол-ва цифр между
for i:=A to B do
begin
write(' ',i,' ');
c:=c+1;
end;
writeln;
writeln('Количество чисел между А и В = ',c);
end.