uses crt;
var st:string;
i,lim:byte;
begin
clrscr;
st:=''''Turbo Pascal'''';
lim:=80-length(st)+1;
for i:=1 to lim do
begin
gotoxy(i,15); {Viet xau st vao dong 15}
write(st);
delay(100);
delline;
end;
gotoxy(lim,15);
write(st);
readln
end.
nếu sai bạn nói mình xem lại nha
Viết chương trình nhập n là số nguyên dương, in ra màn hình các số nguyên tố trong dãy số gồm n số (viết 2 chương trình, trong đó có 1 cái dùng boolean, cái còn lại không dùng)