CONST
 Nmax=10; {Max number of rectangles}
VAR
 i,j,N:INTEGER;
 b:BOOLEAN;
 X1,Y1,X2,Y2:ARRAY[1..Nmax] of INTEGER;
BEGIN
 Write('Number of rectangles = ');
 ReadLn(N);
 b:=TRUE;
 i:=0;
 REPEAT
  INC(i);
  REPEAT
   Write('Right Top X of rectangle N',i,' = ');
   ReadLn(X1[i]);
   Write('Right Top Y of rectangle N',i,' = ');
   ReadLn(Y1[i]);
   Write('Left Bottom X of rectangle N',i,' = ');
   ReadLn(X2[i]);
   Write('Left Bottom Y of rectangle N',i,' = ');
   ReadLn(Y2[i]);
   IF (X1[i]<=X2[i]) OR (Y1[i]<=Y2[i]) THEN
    Writeln ('Wrong values!');
  UNTIL (X1[i]>X2[i]) AND (Y1[i]>Y2[i]);
  IF (X1[i]>1000) OR (Y1[i]>1000) OR (X2[i]<0) OR (Y2[i]<0)
   THEN
    BEGIN
     b:=FALSE;
     WriteLn('Figure N',i,' is out of range!');
    END;
  IF b THEN
   BEGIN
    FOR j:=1 TO i-1 DO
     IF ((X1[i]>X2[j]) AND (X2[i]<X1[j]))
        AND
        (((Y1[i]>Y2[j]) AND (Y2[i]<Y1[j])) OR
         ((Y2[i]<Y1[j]) AND (Y1[i]>Y2[j]))) THEN
      BEGIN
       b:=FALSE;
       WriteLn('Figure N',i,' overlaps figure N',j);
      END;
   END;
 UNTIL (b=FALSE) OR (i=N);
 IF b AND (i=N) THEN WriteLn('Everything is OK!');
 ReadLn;
END.

CONST
e=0.0001;

VAR
i:INTEGER;
S,a:REAL;

function X2np(X:Extended; n:WORD):Extended;
Var i:INTEGER;
Y:Extended;
BEGIN
IF n=0 THEN X2np:=1 ELSE
IF n=1 THEN X2np:=X ELSE
BEGIN
Y:=X;
FOR i:=2 TO n DO Y:=Y*X;
X2np:=Y;
END;
END;

BEGIN
S:=1;
i:=0;
REPEAT
INC(i);
a:=X2np(-1,i)/X2np((i+1)*(i+2),i);
S:=S+a;
UNTIL ABS(a)<e;
WriteLn('S= ',S:7:5);
ReadLn;
END.

CONST
e=0.001;

VAR
i:INTEGER;
S,a,x:REAL;

BEGIN
 Write('x= ');
 ReadLn(x);
 S:=0;
 i:=0;
 a:=1;
 REPEAT
  INC(i);
  a:=-a*x/i;
  S:=S+a;
 UNTIL ABS(a)<e;
 WriteLn('S= ',S:6:3);
 ReadLn;
END.

a:=-a*x/i;  S:=S+a;