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.
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.