Question

Viết chương trình hiển thị ra màn hìn 20 chữ "a" với yêu cầu: mỗi chữ trên 1 dòng cách chữ sau, hiển thị cách chữ trước 0.05 giây.

Answer 1

uses crt;

var i:integer;

begin

clrscr;

for i:=1 to 20 do 

  begin

delay(50);

writeln('a');

end;

readln;

end.