Input: Số N
Output: Các số từ 1 đến N giảm dần
b) var N,i: integer;
c) Chương trình:
program in;
uses crt;
var N,i: integer;
Begin
clrscr;
write('Nhap so N: '); readln(N);
write('Cac so tu 1 den ',N,' theo thu tu giam dan: ');
for i:=N downto 1 do write(i,' ');
readln
End.