Дождь

 Program Rain;
 uses graphABC;
 var t:array[1..2,1..200]of integer;
    m,v,c:integer;
 procedure KeyDown(Key: integer);
begin
  case Key of
       VK_b: c:=1;
       VK_r: c:=2;
       VK_g: c:=3;
       VK_y: c:=4;
       VK_p: c:=5;
       VK_i: c:=6;
       VK_Right:   if m <=195 then m:=m+5; 
       VK_Left:    if m>=6 then m:=m-5;
       VK_Up:      if v<=95 then v:=v+5;
       VK_Down:    if v>=5 then v:=v-5;
    end; 
  end;  
  
 begin
 m:=100;
 v:=100;    
 c:=random(1,6);
 v:=round(100/v)-1;
 for i:integer:=1 to m do
  begin
  t[1,i]:=random(0,windowwidth);
  t[2,i]:=random(0,windowheight);
  end;
 repeat
 lockdrawing;
 clearwindow;
 setbrushcolor(clSkyBlue);
 rectangle(0,0,windowwidth,windowheight);
 writeln(m,' ',v ); //Контроль количества точек и их замедления
 case c of
     1: setpencolor(clblue);
     2: setpencolor(clred);
     3: setpencolor(clgreen);
     4: setpencolor(clyellow);
     5: setpencolor(clpurple);
     6: setpencolor(clivory);
 end;
 for i:integer:=1 to m do
   begin
    circle(t[1,i],t[2,i],2); 
    circle(t[1,i],t[2,i],2);     
   end;
 redraw;
 sleep(v);
 for i:integer:=1 to m do
   begin
   t[2,i]:=t[2,i]+5;
   if t[2,i]>windowheight then t[2,i]:=1;
   end;
   OnKeyDown:=KeyDown;
 until false;
 end.