Даны два целых числа A и B (при этом A ≤ B). Выведите все числа от A до B включительно.

program zz1;

var a, b, i:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число больше первого '); / / вводим с клавиатуры второе число

read (b);

for i:=a to b do / / организуем цикл, в котором переберем все числа от а до b

write (' ', i); / / выводим все числа от первого до второго в строчку через пробел

end.