program oken; uses crt; var i,n:longint; begin clrscr; write('Nhap 1 so bat ky: '); readln(n); writeln(' BANG CUU CHUONG ',n); i:=1; while i<=9 do begin writeln(' ',n,' * ',i,' = ',n*i); i:=i+1; end; readln; end.
program Bai_tap_1; uses crt; var i,n:longint; begin clrscr; write('Nhap n: '); readln(n); writeln(' BANG CUU CHUONG ',n); i:=1; while i<=9 do begin writeln(' ',n,' * ',i,' = ',n*i); i:=i+1; end; readln; end.