In bảng cửu chương n (Với n nhập từ bàn phím)

Program Cuu_Chuong_1;
uses crt;
var n, i : integer;
begin
 clrscr;
 write(‘Nhap n: ‘); readln(n);
 for i:= 1 to 9 do writeln(n,’ x ‘, i, ‘ = ‘, n*i);
 readln
end.