Bảng cửu chương

Viết chương trình in ra màn hình bảng cửu chương.
                                                                 Giải
Var
       i,j:Integer;
BEGIN
       For i:=1 to 10 do
           begin
               for j:=1 to 10 do
               Writeln(i,'x',j,'=',i*j);
               Writeln;
               Readln;
           end;