{
 ----------------------------------------------------------------------------
  SLIMAQUE - the ultimate snail-shard simulation
  tHIS IS oRIGINAL WORK OF AndreK, cOPYRIGHT (c) 2002-2003, distribute under GPL
 ----------------------------------------------------------------------------
}

program slimaque;

uses crt, graph;

var i, q:real;
    x, y, dr, m, n, d:integer;

begin
     writeln('Zadaj krok, pocet zavitov & vzdialenost stop');
     readln(q, n, d);
	dr:=9;
	m:=2;
	initgraph(dr, m, '');
	moveto(320, 240);
	i:=0;
	while i<(3.14159*2*n) do begin
		x:=round(sin(i)*(i/3.14159/2)*d)+320;
		y:=round(cos(i)*(i/3.14159/2)*d)+240;
		i:=i+q;
		lineto(x,y);
	end;
	readln;
	closegraph;
end.
