program graph2(output); const d = 0.0625; s = 32; h1 = 34; h2 = 68; c = 6.28318; lim = 32; var i,j,k,n: integer; x,y: real; a: array[1..h2] of char; begin for j := 1 to h2 do a[j] := ' '; for i := 0 to lim do begin x := d*i; y := exp(-x)*sin(c*x); a[h1] := ':'; n := round(s*y) + h1; a[n] := '*'; if n < h1 then k := h1 else k := n; for j := 1 to k do write(a[j]); writeln; a[n] := ' '; end end.