Program Bang_cuu_chuong;

uses crt;

var n, i: longint;

Begin

   clrscr;

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

   writeln('Bang nhan ', n);

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

   readln;

Program Bang_cuu_chuong;

uses crt;

var n, i: longint;

Begin

   clrscr;

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

   writeln('Bang nhan ', n);

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

   readln;