in ra màn hình bảng cứu chương số n bất kì được nhập từ bàn phims theo 2 cách for hoặc while

#Bảng cửu chương 

#cách 1 dùng for

uses crt;
var n,i : integer;
begin
clrscr;
write('Nhap n : ');
readln(n);
writeln('Bang cua chuong cua ',n);
for i:=1 to 10 do
begin
writeln(' ',n,' x ',i,' = ',n*i);
end;
readln
end.

#cách 2 dùng while

uses crt;
var n,i : integer;
begin
clrscr;
write('Nhap n : ');
readln(n);
writeln('Bang cua chuong cua ',n);
i:=1;
while i<=10 do
begin
writeln(' ',n,' x ',i,' = ',n*i);
i:=i+1;
end;
readln
end.