Program mun;

Uses crt;

Var i:integer;

Begin

For i:=1 to 10 do write ('2 × ', i,' = ', 2*i);

Readln;

End.

P/s: Ko chắc ạ!

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 10 do

writeln('2*',i,'=',2*i);

readln;

end.

uses crt;

var i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

writeln('Bang cuu chuong ',n,' la: ');

for i:=1 to 10 do 

  writeln(n,'*',i,'=',n*i);

readln;

end.

program bang_cuu_chuong;

uses crt;

var n,tich,i:integer;

begin

clrscr;

n:=2;i:=1;

while n<=9 do

begin

while i<=10 do

begin

tich:=n*i;

writeln(n,' x ',i,' = ',tich);

i:=i+1;

end;

n:=n+1;i:=1;

end;

readln;

end.

Để chú cá di chuyển nhiều lần, theo em có thể bổ sung thêm nhiều lệnh di chuyển hoặc đặt lệnh di chuyển vào vòng lặp. Chương trình tham khảo như sau:

Uses crt;
Var a,b :byte;
Begin
Clrscr;
For a:=2 to 9 do
    Begin
          For b:=1 to 10 do writeln ( a,’x’,b,’=’,a*b);
            Delay(1000); { tam dung sau moi cuu chuong duoc in ra }
            Writeln; { ngan cach cac bang cuu chuong }
      End;
   Readln
End.

_{* bạn thử chạy chương trình ra nhé , chúc học tốt!!}

Bài 2:

Program hotrotinhoc_hoc24;

var i,n,d,d1: integer;

begin

write('Nhap n='); readln(n);

i:=0;

while i<n do

begin

i:=i+1;

if i mod 2=1 then d:=d+1;

if i mod 2=0 then d1:=d1+1;

end;

writeln('Co ',d1,' so chan tu 1 den ',n);

write('Co ',d,' so le tu 1 den ',n);

readln

end.

Bài 1:

Program hotrotinhoc_hoc24;

var i,n: integer;

begin

write('Nhap n='); readln(n);

i:=0;

while i<10 do

begin

i:=i+1;

writeln(n,'*',i,'=',n*i);

end;

readln

end.

uses crt;

var i:integer;

begin

clrscr;

writeln('Bang cuu chuong 3 la: ');

for i:=1 to 10 do 

  writeln('3*',i,'=',3*i);

readln;

end.

tham khảo:
 uses crt;

var i:integer;

begin

clrscr;

writeln('Bang cuu chuong 3 la: ');

for i:=1 to 10 do 

  writeln('3*',i,'=',3*i);

readln;

end.

python hay pascal bạn ơi