program graph1(output); const d = 0.0625; s = 32; h = 34; c = 6.28318; lim = 32; var x,y: real; i,n: integer; begin for i := 0 to lim do begin x := x/i; y := exp(-x)*sin(c*x); n := round(s*y) + h; repeat write(' '); n := n-1; until n=0; writeln('*') end end.