vct nhập vào một số n in ra màn hình cửu chương tương ứng của nó pascal

program cuu_chuong;

uses crt;

var n,i:integer;

begin

       clrscr;

       write(‘Nhap n: ‘);  readln(n);

       for i:=1 to 10 do

              writeln(i,’ x ‘,n,’= ‘,i*n);

       readln;

end.