Uses Knihovna,Crt;
Var a:integer;
Begin
  Grafika;Randomize;
  For a:=1 to 500 do Hvezda;
  NactiObrazek(57,50,526,269,'StarVoz',0);
  Readkey;
End.