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.
Download: http://www.mediafire.com/?a2v9xebkv601xgt
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.
Download: http://www.mediafire.com/?a2v9xebkv601xgt