Ответы и объяснения

2014-04-05T02:21:04+04:00
Если имелось ввиду, нарисовать,то 
uses graphABC; 

begin 
ClearWindow (clTeal); 
Rectangle (200,200,360,360); 
Line (200,200,280,280); 
Line (280,280,360,200); 
end.