PROCEDURE forSchleife;
VAR
a,d,f:REAL;
x,y:INTEGER;
BEGIN
d:=0.5;
a:=0.5;
f:=11.5;
Rect(0.5,0.5,12,27);
FOR x:=1 TO 11 DO BEGIN
FOR y:=1 TO 26 DO BEGIN
IF (NOT((x=2)AND(y=3))) THEN BEGIN
IF (NOT((x=3)AND(y=2))) THEN BEGIN
IF (NOT((x=9)AND(y=9))) THEN BEGIN
IF (NOT((x=2)AND(y=5))) THEN BEGIN
IF (NOT((x=4)AND(y=2))) THEN BEGIN
IF (NOT((x=9)AND(y=23))) THEN BEGIN
IF (NOT((x=7)AND(y=18))) THEN BEGIN
IF (NOT((x=3)AND(y=25))) THEN BEGIN
IF (NOT((x=3)AND(y=18))) THEN BEGIN
IF (NOT((x=7)AND(y=12))) THEN BEGIN
IF (NOT((x=5)AND(y=12))) THEN BEGIN
IF (NOT((x=5)AND(y=23))) THEN BEGIN
Rect(x*(d+a),y*(d+a),x*(d+a)+d,y*(d+a)+d);
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
Rect(12,0.5,23.5,27);
FOR x:=1 TO 11 DO BEGIN
FOR y:=1 TO 26 DO BEGIN
IF (NOT((x=2)AND(y=12))) THEN BEGIN
IF (NOT((x=3)AND(y=5))) THEN BEGIN
IF (NOT((x=5)AND(y=9))) THEN BEGIN
IF (NOT((x=2)AND(y=5))) THEN BEGIN
IF (NOT((x=4)AND(y=2))) THEN BEGIN
IF (NOT((x=7)AND(y=23))) THEN BEGIN
IF (NOT((x=2)AND(y=18))) THEN BEGIN
IF (NOT((x=3)AND(y=25))) THEN BEGIN
IF (NOT((x=4)AND(y=15))) THEN BEGIN
IF (NOT((x=7)AND(y=12))) THEN BEGIN
IF (NOT((x=9)AND(y=9))) THEN BEGIN
IF (NOT((x=5)AND(y=23))) THEN BEGIN
Rect(x*(d+a)+f,y*(d+a),x*(d+a)+d+f,y*(d+a)+d);
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
Rect(23.5,0.5,35,27);
FOR x:=1 TO 11 DO BEGIN
FOR y:=1 TO 26 DO BEGIN
IF (NOT((x=2)AND(y=18))) THEN BEGIN
IF (NOT((x=4)AND(y=2))) THEN BEGIN
IF (NOT((x=9)AND(y=9))) THEN BEGIN
IF (NOT((x=2)AND(y=5))) THEN BEGIN
IF (NOT((x=4)AND(y=5))) THEN BEGIN
IF (NOT((x=9)AND(y=23))) THEN BEGIN
IF (NOT((x=7)AND(y=18))) THEN BEGIN
IF (NOT((x=6)AND(y=25))) THEN BEGIN
IF (NOT((x=3)AND(y=17))) THEN BEGIN
IF (NOT((x=7)AND(y=12))) THEN BEGIN
IF (NOT((x=8)AND(y=4))) THEN BEGIN
IF (NOT((x=5)AND(y=23))) THEN BEGIN
Rect(x*(d+a)+2*f,y*(d+a),x*(d+a)+d+2*f,y*(d+a)+d);
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
Rect(35,0.5,46.5,27);
FOR x:=1 TO 11 DO BEGIN
FOR y:=1 TO 26 DO BEGIN
IF (NOT((x=2)AND(y=2))) THEN BEGIN
IF (NOT((x=3)AND(y=3))) THEN BEGIN
IF (NOT((x=9)AND(y=9))) THEN BEGIN
IF (NOT((x=7)AND(y=5))) THEN BEGIN
IF (NOT((x=4)AND(y=2))) THEN BEGIN
IF (NOT((x=9)AND(y=16))) THEN BEGIN
IF (NOT((x=7)AND(y=18))) THEN BEGIN
IF (NOT((x=2)AND(y=25))) THEN BEGIN
IF (NOT((x=3)AND(y=18))) THEN BEGIN
IF (NOT((x=7)AND(y=12))) THEN BEGIN
IF (NOT((x=8)AND(y=12))) THEN BEGIN
IF (NOT((x=2)AND(y=23))) THEN BEGIN
Rect(x*(d+a)+3*f,y*(d+a),x*(d+a)+d+3*f,y*(d+a)+d);
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
END;
RUN(forSchleife);