2. Viết chương trình (theo sơ đồ trên)
Program chanle;
Uses crt;
Var N : integer;
Begin
       clrscr;
       write (‘Nhap N : ’); readln (N);
       if N mod 2 = 0 then writeln (N, ‘ la so chan’)
       else writeln (N, ‘ la so le’); readln;

3.
 program pt ax+b=0; 
uses crt; 
var a, b: logint; 
Begin 
write('nhap so a ='); Readln(a); 
write('nhap so b ='); readln(b); 
If (a = 0 and b = 0) 
then write ('pt co nghiem x thuoc R') 
else 
if (a=0 and b#0) then write('pt vo nghiem') 
else 
write(nghiẹm la x=': -b/a); 
readln