uses GraphABC, CRT;
const Center = 100;

var i, j, k: integer;
    a, b, c: array [1..2] of integer;

procedure New(No: integer);
begin
     LineTo(a[1] - Trunc(Center * 0.1) * No, a[2] + Trunc(Center * 0.1) * No);
     LineTo(Center, b[2] - Trunc(Center * 0.1) * No);
     LineTo(c[1] + Trunc(Center * 0.1) * No, c[2] + Trunc(Center * 0.1) * No);
end;

begin
     readln(k);
     a[1] := Center - Trunc(Center * 0.1);
     a[2] := Center + Trunc(Center * 0.1);
     b[2] := Center - Trunc(Center * 0.1);
     c[1] := Center + Trunc(Center * 0.2);
     c[2] := Center + Trunc(Center * 0.2);
     MoveTo(a[1], a[2]);
     for i := 0 to k do New(i);
end.