turtle_shablon

##
uses turtle,graphWPF;
// переменные
var (w, h) := (800,800);
var (w100, h100) := (w div 100, h div 100);
var (x, y) := (0, 0);
// подготовка окна
(Window.Width, Window.Height) := (w, h);
Window.CenterOnScreen;
SetMathematicCoords(-w100, w100,true);
// кружочки
Brush.Color := Colors.Red;
  for x := -w100 to w100 do
    for y := -h100 to h100 do
      circle(x, y, 0.08);
//
ToPoint(0,0);
Turn(90); //Поворачиваем в направлении оси ординат
Down;
loop 10 do
begin
  forw(6);
  turn(-120);
end;
///////////////////////// новое! ///////////////////
##
uses Turtle;
//
var (w, h) := (800,800);
var (w100, h100) := (w div 100, h div 100);
var (x, y) := (0, 0);
//
for x := -w100 to w100 do
  for y := -h100 to h100 do
    DrawPoint(x, y, Colors.Red);