program chisla;
var A,B: LongInt; i: ShortInt;
begin
write('Введите 2 целых числа >>');
readln(A,B);
for i:= A to B
do write(i, ', ');
end.
//Программа выведет подряд через запятую все числа от A до B.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.