Нарисуйте в паскаде абц по точкам солнышко или домик

Как я понимаю, главное для тебя это построение окружности по точкам. Вот тебе программа использующая алгоритм Брезенхэма // Окружность по точкам Алгоримтм БрезенхэмаUses GraphABC; procedure bres_circle (xc,yc,r: integer); var x,y,d: integer; procedure sim (x,y: integer); begin putpixel (x+xc,y+yc,clYellow); putpixel (x+xc,-y+yc,clYellow); putpixel (-x+xc,-y+yc,clYellow); putpixel (-x+xc,y+yc,clYellow); putpixel (y+xc,x+yc,clYellow); putpixel (y+xc,-x+yc,clYellow); putpixel (-y+xc,-x+yc,clYellow); putpixel (-y+xc,x+yc,clYellow); end; begin d: =3-2*y; x: =0; y: =r; while (x <= y) do begin sim (x,y); if d<0 then d: =d+4*x+6 else begin d: =d+4*(x-y)+10; dec (y) end; inc (x) end; end; begin ClearWindow; SetWindowSize (400,400); bres_circle (150,150,100); FloodFill (150,150,clYellow); TextOut (15,300,'Это солнце, а не блин! '); end.