câu a) Input: Số N

          Output: Các số từ 1 đến N giảm dần

câu b) var N,i: integer;

câu b) Chương trình:

uses crt;

var N,i: integer;

Begin

         clrscr;

         write('Nhap so N: '); readln(N);

         writeln('Cac so tu 1 den ',N,' theo thu tu giam dan: ');

         for i:=N downto 1 do write(i,'  ');

         readln

End.

C2:
a)Input: Nhập vào số kết thúc n của dãy số
   Output: In ra các số từ 1 ->n theo thứ tự giảm dần
b) Var n,i:integer;
c) Chương trình hoàn chỉnh:
uses crt;
var n,i:integer;
begin
clrscr;
write(' Nhap day so n vao: '); Readln(n);
write(' Day so vua nhap la: ');
for i:= 1 to n do write(i);
write('Day so vua nhap theo thu tu giam dan la: ');
for i:=n downto 1 do write(i:3);
readln
end.