Question

Составьте программу для рисования домика на языке Pascal См. на картинке.

Answer 1

uses graphabc;

begin

SetPenWidth(2);

rectangle (100,100,500,300);

line(300,100,300,300);

moveto(100,100);

lineto(200,50);

lineto(400,50);

lineto(500,100);

line(200,50,300,100);

SetBrushColor(clGray);

rectangle(150,150,250,250);

end.