program bangcuuchuong; uses crt; var i,j:byte; begin clrscr; writeln('BANG CUU CHUONG'); i:=1; while i<=9 do begin j:=1; writeln('Bang cuu chuong 1:') while j<=10 do begin writeln(i,' x ',j,'= ',i*j); j:=j+1; end; delay(500); end; readln; end.
$\text{#Mong câu trả lời hay nhất ạ}$ $\text{#Chúc bạn học tốt nha}$ $\text{@Vân}$
