uses crt; var gs,gm:integer; begin detectgraph(gs,gm); initgraph(gs,gm,' '); rectangle(120,120,400,400); readln; closegraph; end.