Mình viết phần thân thôi nha
n khai báo là interger
n:=0;
While n<>100 do
Begin
Write(n,' ');
inc(n);
end;
PROGRAM LOSER;
USES crt;
VAR
i:Bytbe;
BEGIN
clrssr ();
i:=1;
while i <100 do
BEGIN
write('',i);
i:=i+1;
End;
Readln;
END.
( uy tín chạy được em nha)