{Fernbach µgnes Szabadhegyi Csaba}
Program graf;
Uses crt,graph;
var gdriver,gmode:integer;
    x,y,rr:integer;

Procedure Rajzol(X,Y:integer);
var S,o:longint;
    ks,ko,ss,os:integer;
Begin
          ks:=200;
          ko:=200;
          ss:=400;
          os:=400;
          S:=Round(KS-Y);
          O:=Round(KO+X);
          if (S<SS) and (O<OS)
             then
                 putpixel(O,S,4);
End;

Begin
     clrscr;
     gdriver:=detect;
     Initgraph(Gdriver,gmode,'c:\langs\tp');
     x:=-1;
     y:=trunc(sqrt(x*x*(1+x)/(1-x)));
     While y>=0 do
           Begin
                rajzol(x,y);
                rajzol(x,-y);
                rajzol(-x,y);
                rajzol(-x,-y);
                If ((x+1)*(x+1)+y*y<=2) and ((x+1)*(x+1)+y*y>=-1)
                   Then
                       x:=x+1
                   Else
                       Begin
                            y:=y-1;
                            if ((x+1)*(x+1)+y*y<=2) and ((x+1)*(x+1)+y*y>=-1)
                               then
                                   x:=x+1;
                       End;
           End;
     ReadLn;
     CloseGraph;
End.