tham khảo ;
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
begin
delay(50);
writeln('a');
end;
readln;
end
chép mạng có sai thì thông cảm nha
Đúng 2
Bình luận (0)