Question

Помогите с программой
Графики в паскаль
Помогите , срочно..

Answer 1

uses graphabc;
 begin
  window.Init(0, 0, 640, 480, clwhite);
  pen.Width:=2;
  line(120, 360, 280, 360);
  line(120, 360, 120, 280);
  line(280, 360, 280, 280);
  line(200, 360, 200, 280);
  line(120, 280, 280, 280);
  line(190, 340, 190, 360);
  line(190, 340, 200, 340);
  line(120, 280, 170, 250);
  line(170,250,200,280);
  line(170,250,240,250);
  line(240,250,280,280);
  drawrectangle(150, 310, 170, 330);
end.