составить программу.
pascal.
Вывести на экран натуральные числа от c до d (c>d)

var c,a,d:integer;

begin

 write('c= ');

 read (c);

 write('d= ');

 read (d);

 writeln();

 for a:=c to d do

   begin

         write(a,' ');

   end;

end.