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.