Program hoidap; 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.
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.
