Lần lượt in các bảng cửu chương.

Program Cuu_Chuong_1;
uses crt;
var i,j : integer;
begin
 clrscr;

 for i:= 2 to 9 do
 Begin
 Writeln(‘Bang cuu chuong ‘,i);
 For j := 1 to 9 do writeln(i,’ x ‘, j, ‘ = ‘, j*i);
 readln
 end;
 readln
end.