Question

графика паскаль написать программу

Answer 1

uses Graphabc;  
begin
  SetWindowWidth(530);    
  SetWindowHeight(200);   
  SetPenWidth(5);
  Rectangle(250, 10, 310, 70);
  Rectangle(210, 70, 350, 130);
  Rectangle(170, 130, 390, 190);
end.