PROCEDURE Rectlen;

VAR

	i : integer;
	m : integer;
	px,py : REAL;
	r,g,b : LONGINT;

BEGIN
	ColorIndexToRGB(51,r,g,b);
	PenFore(r,g,b);
 	For i:= 1 to 100 DO BEGIN
	IF (i<50)THEN Rect(i*5,i*10,i*10,i*5)
	ELSE Oval(i*3,i*6,i*6,i*3);
	MoveTo(0,0);
	SelectAll;	
	rotatepoint(0,0,45)	
	
	END;
	
	ColorIndexToRGB(55,r,g,b);
	PenFore(r,g,b);
 	For i:= 100 to 200 DO BEGIN
	IF (i<150)THEN Rect(i*2,i*4,i*4,i*2)
	ELSE Oval(i*2,i*4,i*4,i*2);
	MoveTo(0,0);
	SelectAll;	
	rotatepoint(0,0,90);	
	
	END;
	ColorIndexToRGB(10,r,g,b);
	PenFore(r,g,b);
	PenSize(12);
	For i:= 1 to 15 Do Begin
	Rect(-i*50,-i*50,i*50,i*50);
	Rotatepoint(0,0,45);
	
	END;

	


END;

RUN(Rectlen);