Не понимаю информатику(

 uses GraphABC; 
 
procedure DrawStork1; 
begin 
  // Голова 
  circle(100, 100, 20); 
  // Тело 
  ellipse(80, 120, 120, 160); 
  // Клюв 
  line(100, 100, 140, 80); 
  line(140, 80, 140, 100); 
  line(140, 100, 100, 100); 
  // Ноги 
  line(90, 160, 90, 190); 
  line(110, 160, 110, 190); 
  // Ступни 
  line(90, 190, 80, 200); 
  line(90, 190, 100, 200); 
  line(110, 190, 100, 200); 
  line(110, 190, 120, 200); 
end; 
 
procedure DrawStork2; 
begin 
  // Голова 
  circle(300, 50, 20); 
  // Тело 
  ellipse(280, 70, 320, 110); 
  // Клюв 
  line(300, 50, 340, 30); 
  line(340, 30, 340, 50); 
  line(340, 50, 300, 50); 
  // Ноги 
  line(290, 110, 290, 140); 
  line(310, 110, 310, 140); 
  // Ступни 
  line(290, 140, 280, 150); 
  line(290, 140, 300, 150); 
  line(310, 140, 300, 150); 
  line(310, 140, 320, 150); 
  // Крыло 
  arc(300, 90, 240, 70, 0, 180); 
end; 
 
procedure DrawStork3; 
begin 
  // Голова 
  circle(200, 300, 20); 
  // Тело 
  ellipse(180, 320, 220, 360); 
  // Клюв 
  line(200, 300, 240, 280); 
  line(240, 280, 240, 300); 
  line(240, 300, 200, 300); 
  // Ноги 
  line(190, 360, 190, 390); 
  line(210, 360, 210, 390); 
  // Ступни 
  line(190, 390, 180, 400); 
  line(190, 390, 200, 400); 
  line(210, 390, 200, 400); 
  line(210, 390, 220, 400); 
  // Крыло 
  arc(200, 340, 140, 320, 0, 180); 
end; 
 
begin 
  SetWindowSize(500, 500); 
  ClearWindow(clWhite); 
  DrawStork1; 
  DrawStork2; 
  DrawStork3; 
end.