Bài 1 : Viết chương trình nhập vào một số nguyên a và cho biết đó là số âm hay dương? Bài 2: Viết chương trình kiểm tra tính chẵn lẻ của một số nguyên a? Bài 3: Viết chương trình nhập vào một số nguyên N. Xét số đó có là số lẻ dương hay không ?

Bài 1:

Program bai1;

uses crt;

var a:integer;

begin

clrscr;

write('nhap so a =');

readln(a);

if a> 0 then writeln('a la so duong ') else

writeln('a la so am ');

readln;

end.

Bài 2:

program chanle;

uses crt;

var n;

begin    

clrscr;     

write('Nhap n: ');     

readln(n);     

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

else ('n la so le');     

readln;

end.

Bài 3:

program kiem_tra_so;

uses crt;

var a,k : integer;

begin

clrscr;

write(' Nhap so a = ');

readln(a);

write(' Nhap so k = ');

readln(k);

If a = 2 * k then writeln(' a la so chan')

else writeln(' a la so le ');

readln;

end.