Koordinatları bilgisayarın belirlediği, ismi ekrana renkli ve yanıp sönerek yaza

Koordinatları bilgisayarın belirlediği, ismi ekrana renkli ve yanıp sönerek yazan program.


uses crt;
var
i,x,y:integer;
begin
clrscr;
randomize;
for i:=1 to 1000 do begin
x:=random(70);
y:=random(24);
textcolor(x);
gotoxy(x,y);
textbackground(82);

writeln('sonnur');
end;
readln;
end.


Linkback: https://www.buyuknet.com/koordinatlari-bilgisayarin-belirledigi-ismi-ekrana-renkli-ve-yanip-sonerek-yaza-t8611.0.html