Даю 50 баллов. составьте программу в Paskal. Очень срочно

uses graphABC;

begin

SetWindowSize(600,400);

Rectangle(100,100,300,300);

Rectangle(150,150,250,250);

Line(100,100,200,50);

Line(200,50,300,100);

Rectangle(400,50,500,150);

End.