uses Crt, Graph;

var
  gd, gm, k,alpha,color: Integer;
  i:real;
begin
  randomize;
  gd := Detect;

  InitGraph(gd, gm, '');


repeat
 i := 0;
 k:=200;
 alpha:=80;
 color:=random(15);
 while (i < GetMaxX) do
  begin
   PutPixel(round(i), GetMaxY div 2 + Round(k * Sin(round(i) * pi / alpha)), color);
   Delay(300);
   i:=i+0.1;
  end;
until keypressed;

end.

uses Crt, Graph;

var
  gd, gm, k,alpha,color: Integer;
  i:real;
begin
  randomize;
  gd := Detect;

  InitGraph(gd, gm, '');


repeat
 i := 0;
 k:=200;
 alpha:=80;
 color:=random(15);
 setcolor(color);
 moveto(round(i), GetMaxY div 2 + Round(k * Sin(round(i) * pi / alpha)));
 while (i < GetMaxX) do begin
   LineTo(round(i), GetMaxY div 2 + Round(k * Sin(round(i) * pi / alpha)));
   Delay(300);
   i:=i+0.1;
  end;
until keypressed;

end.