Вывести на экран числа от a до b, если a>b (через оператор For и через оператор While)

program zz1;

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

begin

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

read (a);

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

read (b);

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

write (' ', i); / / выводим ответ

writeln; / / переходим на новую строку для вывода второго ответа

i:=a;

while i > = b do / / организуем цикл пока

begin

write (' ', i); / / выводим ответ

i:=i - 1;

end;

end.