Tham khảo:
program oken;
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap 1 so bat ky: '); readln(n);
writeln('BANG CUU CHUONG ',n);
for i:=1 to 9 do
writeln(n,' * ',i,' = ',n*i);
readln;
end.