program Valenok_3; uses crt,graph; const k=5000; var gm,gd,i:integer; {----------Pamka----------} tlx,tly,brx,bry:integer; bls,blw,blc:integer; {----------rpaôuK----------} Grt{Tun},GRc{color}:integer; Xmin,Xmax,q,max,min,ymax,ymin:real; Ax,Ay,Bx,By:real; f,r:real; fx,fy:integer; a,b: array[0..k] of real; {----------CeTKa----------} gls,glw,glc,nx{÷èñëî äåëåíèé x},ny{... y},textc:integer; sx,sy,xv,yv:real; w:string; begin writeln('rpafuK fyHKzuu r=cos(q*f)'); writeln('BBeDuTE q'); readln(q); {----------rPafu4eckué pe>|