Даны два целых числа A и B.
program For2;
var
A, B: integer;
temp: integer;
i: integer;
begin
temp := 0;
repeat
writeln('Введите A и B:');
readln(A, B);
until (A);
for i := A to B do
begin
temp := temp + 1;
write(i, ' ');
end;
writeln('количество чисел:', temp);
end.