помогите пожалуйста....Вывести в столбик все натуральные числа из диапазона от a до b в обратном порядке. Входные данные: Во входном потоке заданы два целых числа a и b (0 < a < 100, a < b <= 100)</p>
Program obr;
Uses Crt;
var a,b,i:byte;
begin
clrscr;
write('Введите а:');
readln(a);
write('Введите b:');
readln(b);
for i:=b downto a do
writeln(i:2);
readkey;
end.