Числа в диапазоне

[Patrick]

Помогите решить задачу, даны целые числа А и И, вывести все числа,которые находятся между А и И(включая А и В )и количество цифр.

[russian-stalker]

Вот:

program Project1;
var
i,a,b:integer;
begin
writeln('Vvedite chisla');
readln(a,b);
for i := 0 to abs(a-b) do
begin
if a>b then
  writeln(b+i) else
  writeln(a+i);
end;
writeln('kol-vo chisel: ',I);
readln(a);
end.

[Alex Cones]

Program Ogogo;
Var
N,I,A,B:Integer;
Begin
ReadLn(A,B);
N:=Abs(A-B);
For I:=0 to N do
  If A>B Then
   Write(A-B+I,' ') 
 Else
   Write(B-A+I,' ');
 Writeln(B);
 Writeln('Всего чисел',N+1);
 ReadLn;
 End;

Не проверял, но работать должно.

[Patrick]

Большое спасибо!!!