Hviezdna obloha

procedure TForm1.Timer1Timer(Sender: TObject); var i,n,x,y,a:integer; procedure hviezda(x,y,n:integer); var a:integer; b:real; begin image1.canvas.pen.color:=clwhite; b:=n*0.6; a:=round(b); image1.canvas.Line(x,y,x+n,y); image1.canvas.Line(x,y,x-n,y); image1.canvas.Line(x,y,x,y+n); image1.canvas.Line(x,y,x,y-n); image1.canvas.Line(x,y,x+a,y+a); image1.canvas.Line(x,y,x-a,y-a); image1.canvas.Line(x,y,x+a,y-a); image1.canvas.Line(x,y,x-a,y+a); end; begin randomize; x:=random(300)+30; y:=random(300)+30; a:=random(20)+1; hviezda(x,y,a); end; end. 