Нарисовать дом, дерево и солнце

0
32

Написать программу, которая нарисует дом, дерево и солнце.

Исходный код на языке Pascal

uses
  GraphABC;

begin
  writeln(WindowWidth, '   ', windowheight);
  line(0, 160 * 2, 640, 160 * 2);
  line(340, 320, 340, 170);
  line(490, 320, 490, 170);
  line(305, 170, 525, 170);
  line(305, 170, 415, 170);
  line(415, 100, 525, 170);
  line(415, 100, 305, 170);
  line(170, 320, 170, 220); 
  line(150, 320, 150, 220);
  line(170, 220, 150, 220);
  Ellipse(100, 230, 220, 70);
  Rectangle(375, 210, 455, 290);
  line(415, 210, 415, 290);
  line(375, 250, 455, 250); 
  circle(600, 40, 30);
  line(540, 40, 500, 40);
  line(600, 100, 600, 140);
  line(555, 80, 520, 110); 
end.