viết chương trình in ra màn hình chữ loading và sau đó là 1 dấu chấm rồi 2 dấu chấm rồi 3 dấu chấm…rồi 5 dấu chấm rồi quay lại ko còn dấu chấm rồi 1

program loading3cham;
uses crt;
var n, i: integer;
cham: string;
begin
 clrscr;
  n:=10;
  repeat
   n:=n+1;
   if n>5 then n:=0;
   if n=0 then cham:=”;
   if n=1 then
   cham:=’.’;
   if n=2 then cham:=’..’;
   if n=3 then cham:=’…’;
   if n=4 then cham:=’….’;
   if n=5 then cham:=’…..’;
   textmode (co40);
   gotoxy (12,10);
   writeln (‘loading’,cham);
   delay (100);
   clrscr;
   i:=i+1;
  until keypressed;
 readln;
end.

chữ lớn luôn đó nghe bn

:)))