in ra 5 vị trí rơi của 1 quả trứng. biết sau mỗi lần rơi 1 quả thì tạm dừng 3 giây. giúp em với, bài tập tin 8 cần gấp

2 câu trả lời

uses crt;
var i: longint;
begin
clrscr;
for i:=1 to 5 do
 begin
 writeln('O');
 delay(3000);
 end;
end.

uses crt;
var i: longint;
begin
            clrscr;
            for i:=1 to 5 do
                          begin
                               write('O':10);
                               delay(3000);
                           end;

            readln;
end.