Nhập pascal để có 50-100 trái tim hiện lên tục trên màn hình , hiện lần lượt ở chỗ bất kì

Câu 22: Nhập pascal để có 50-100 trái tim hiện lên tục trên màn hình , hiện lần lượt ở chỗ bất kì

Trả lời

uses crt;
var x,y: byte;
begin
clrscr;
textcolor(lightred);
randomize;
repeat
x:=random (100);
y:=random (22);
if (x<>0) and (y<>0) then
begin
gotoxy (x,y);
writeln (chr(3));
delay (40);
end;
until keypressed;
readln;
end.