Viết chương trình in ra bảng cửu chương 10. Giúp mình với ạ

Program BTT;
Uses crt;
Var i,j: longint;

Begin
        Clrscr;
        For i:=1 to 10 do
        Begin
                For j:=1 to 10 do
                        Writeln(i,' x ',j,' = ',i*j);
                Writeln;
        End;

        Readln
End.                                                                                                                                                                          từ 1 tới 10 cho bạn lun nhé

program Hoidap;

uses crt;

var N,i :integer;

begin

clrscr;

write ('Nhap so N='); readln(N);

writeln;

writeln ('Bang nhan',N);

writeln;

for i :=1 to 10 do writeln (N,'x',i:2,'=',N*i:3);

readln;

end.

---------------------------------------------------

P/s: Bạn nhập N là 10 nhé.