câu 1: tùy theo KDL

                            Kiểu                        Dung lượng         Phạm vi giá trị   

                          Integer                             2 Byte              Từ: -2¹⁵→ 2¹⁵-1

                          Word                                2 Byte                Từ: 0 → 2¹⁶-1

                       Longword                            4 Byte                Từ: 0 → 2³²-1

                         Longint                              4 Byte              Từ: -2³¹ → 2³¹-1

câu 2:

uses crt;

var n: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

if n mod 2=0 then writeln ('n la so chan');

if n mod 2<>0 then writeln ('n la so le');

if n<0 then writeln ('n la so am');

if n>0 then writeln ('n la so duong');

if n=0 then writeln ('n cung ko phai la so am cung ko phai la so duong');

readln;

end.

Câu 1:

Real :6

Integer:2

Longint"4

Byte:1

Char:1

Boolean:1

Câu 2:

uses crt;
var n:longint;
begin
clrscr;
   write('N=');readln(n);
   if n>0 then writeln(n,' la so duong') else
   if n>0 then writeln(n,' la so am') else
   if n=0 then writeln(n,' la so 0');
   if n mod 2=0 then writeln(n,' la so chan') else writeln(n,' la so le');
readln
end.