Bài 6:
 program b_t;
var a:byte; 
begin 
writeln('nhap a'); 
readln(a); 
if ((a mod 2)=0) then writeln(a, 'la so chan'); 
if ((a mod 2)<>0) then writeln(a, 'la so le'); 
readln; 
end

Bài 7:

Bài 8

Bài 9

Bài 10
program chieu_cao ;
uses crt ;
Var a , b : integer ;
Begin
Clrscr ;
Writeln ( ' nhap chieu cao ban An : ', a ,' cm ') ;
Readln ( a ) ;
Writeln ( ' nhap chieu cao ban Ngoc : ', b ,' cm ') ;
Readln ( b ) ;
If  a > b then writeln ( ' Ban An cao hon ' )
Else a < b then writeln ( ' Ban Ngoc cao hon ' ) 
Else a=b then writeln ( ' hai ban cao bang nhau ' ) ;
Readln 
End.
Không biết bạn còn cần ko nếu còn thì bạn có thể tham khảo cái này :)

Bài 10
program chieu_cao ;
uses crt ;
Var a , b : integer ;
Begin
Clrscr ;
Writeln ( ' nhap chieu cao ban An : ', a ,' cm ') ;
Readln ( a ) ;
Writeln ( ' nhap chieu cao ban Ngoc : ', b ,' cm ') ;
Readln ( b ) ;
If a > b then writeln ( ' Ban An cao hon ' )
Else if a < b then writeln ( ' Ban Ngoc cao hon ' )
Else writeln ( ' hai ban cao bang nhau ' ) ;
Readln
End.