uses
    GraphABC;
    
 var 
   i : integer;
   x,y : integer;
   a,b,c : integer;
 begin
  randomize;
  SetWindowCaption ('snow');
  while (a < 2000) and (b < 2000) do
   begin
  a := WindowWidth;
  b := WindowHeight;
  c := (a * b) div 800;
    ClearWindow (ClBlack);
     for i := 1 to c do
      begin
       x := random (a);
       y := random (b);
       SetPixel (x,y, clWhite);
      end; 
    sleep (400);
   end;
      
 end.