program dortik; const max = 1000; var U: array[1..max] of real; {seznam úhlů svíček} P, C: array[1..max] of integer; {čísla předchůdců a jejich počet} i, j, N, K: integer; dif: real; begin read(N); read(K); for i:=1 to N do begin read(U[i]); P[i]:=0; C[i]:=0 end; {setřiď úhly v U a vyházej duplikáty - vynecháme} i:=1; j:=2; while j <= N do begin dif:=U[j] - U[i] - 360/K; if abs(dif) < 0.00001 then begin {našli jsme vhodného následníka} P[j]:=i; C[j]:=C[i]+1; inc(j) end else if dif > 0 then inc(i) else inc(j) end; for i:=1 to N do if C[i] = K-1 then begin {našli jsme konec K-úhelníku} j:=i; writeln('Svíčkový k-úhelník:'); repeat writeln(U[j]); j:=P[j] until j=0 end end.