uses crt,graph;


var t,q,w,e,xqwe,yqwe,s,i,j,r,dx,dy:integer;
x,y:word;
begin
i:=3;
j:=0;
initgraph (i,j,'');
getaspectratio (x,y);
r:=5;
q:=200;
q:=detect;
initgraph (q,w,'');
yqwe:=100;
xqwe:=-400;

while not keypressed=true do
begin
setactivepage(i);
{--------------------------------------}






t:=t+1                ;
xqwe:=xqwe+5;
setcolor ( 1 );
line ( 215 +xqwe, 255 +yqwe, 150 +xqwe, 245 +yqwe);
line ( 150 +xqwe, 245 +yqwe, 195 +xqwe, 195 +yqwe);
line ( 195 +xqwe, 195 +yqwe, 185 +xqwe, 160 +yqwe);
line ( 185 +xqwe, 160 +yqwe, 191 +xqwe, 160 +yqwe);
line ( 191 +xqwe, 160 +yqwe, 201 +xqwe, 195 +yqwe);
line ( 201 +xqwe, 195 +yqwe, 261 +xqwe, 180 +yqwe);
line ( 261 +xqwe, 180 +yqwe, 251 +xqwe, 150 +yqwe);
line ( 251 +xqwe, 150 +yqwe, 256 +xqwe, 150 +yqwe);
line ( 256 +xqwe, 150 +yqwe, 291 +xqwe, 230 +yqwe);
line ( 291 +xqwe, 230 +yqwe, 286 +xqwe, 230 +yqwe);
line ( 286 +xqwe, 230 +yqwe, 261 +xqwe, 185 +yqwe);
line ( 261 +xqwe, 185 +yqwe, 216 +xqwe, 255 +yqwe);
line ( 214 +xqwe, 249 +yqwe, 159 +xqwe, 242 +yqwe);
line ( 159 +xqwe, 242 +yqwe, 197 +xqwe, 204 +yqwe);
line ( 197 +xqwe, 204 +yqwe, 214 +xqwe, 249 +yqwe);
line ( 218 +xqwe, 241 +yqwe, 203 +xqwe, 201 +yqwe);
line ( 203 +xqwe, 201 +yqwe, 253 +xqwe, 186 +yqwe);
line ( 253 +xqwe, 186 +yqwe, 218 +xqwe, 241 +yqwe);
setfillstyle ( 1 , 1 );
floodfill ( 214 +xqwe, 241 +yqwe, 1 );
setcolor ( 8 );
line ( 209 +xqwe, 164 +yqwe, 207 +xqwe, 157 +yqwe);
line ( 207 +xqwe, 157 +yqwe, 204 +xqwe, 156 +yqwe);
line ( 204 +xqwe, 156 +yqwe, 190 +xqwe, 152 +yqwe);
line ( 190 +xqwe, 152 +yqwe, 179 +xqwe, 152 +yqwe);
line ( 179 +xqwe, 152 +yqwe, 174 +xqwe, 154 +yqwe);
line ( 174 +xqwe, 154 +yqwe, 170 +xqwe, 158 +yqwe);
line ( 170 +xqwe, 158 +yqwe, 169 +xqwe, 162 +yqwe);
line ( 169 +xqwe, 162 +yqwe, 172 +xqwe, 166 +yqwe);
line ( 172 +xqwe, 166 +yqwe, 180 +xqwe, 164 +yqwe);
line ( 180 +xqwe, 164 +yqwe, 180 +xqwe, 160 +yqwe);
line ( 180 +xqwe, 160 +yqwe, 183 +xqwe, 160 +yqwe);
line ( 183 +xqwe, 160 +yqwe, 192 +xqwe, 162 +yqwe);
line ( 192 +xqwe, 162 +yqwe, 206 +xqwe, 165 +yqwe);
line ( 206 +xqwe, 165 +yqwe, 209 +xqwe, 164 +yqwe);
setfillstyle ( 1 , 8 );
floodfill ( 203 +xqwe, 161 +yqwe, 8 );
setcolor ( 7 );
circle ( 155 +xqwe, 244 +yqwe, 20 );
circle ( 155 +xqwe, 244 +yqwe, 30 );
circle ( 155 +xqwe, 244 +yqwe, 40 );
circle ( 288 +xqwe, 228 +yqwe, 20 );
circle ( 288 +xqwe, 228 +yqwe, 30 );
circle ( 288 +xqwe, 228 +yqwe, 40 );
circle ( 216 +xqwe, 246 +yqwe, 10 );
setfillstyle ( 1 , 7 );
floodfill ( 216 +xqwe, 246 +yqwe, 7 );
circle ( 288 +xqwe, 228 +yqwe, 40 );
setcolor ( 8 );
circle ( 288 +xqwe, 228 +yqwe, 39 );
circle ( 288 +xqwe, 228 +yqwe, 10 );
setfillstyle ( 1 , 8 );
floodfill ( 288 +xqwe, 228 +yqwe, 8 );
circle ( 155 +xqwe, 243 +yqwe, 10 );
setfillstyle ( 1 , 8 );
floodfill ( 155 +xqwe, 243 +yqwe, 8 );
line ( 155 +xqwe, 232 +yqwe, 215 +xqwe, 237 +yqwe);
line ( 215 +xqwe, 257 +yqwe, 155 +xqwe, 252 +yqwe);
line ( 216 +xqwe, 246 +yqwe, 229 +xqwe, 233 +yqwe);
line ( 229 +xqwe, 233 +yqwe, 228 +xqwe, 232 +yqwe);
line ( 228 +xqwe, 232 +yqwe, 216 +xqwe, 244 +yqwe);
line ( 216 +xqwe, 244 +yqwe, 204 +xqwe, 256 +yqwe);
line ( 204 +xqwe, 256 +yqwe, 205 +xqwe, 257 +yqwe);
line ( 205 +xqwe, 257 +yqwe, 217 +xqwe, 245 +yqwe);
setfillstyle ( 1 , 8 );
floodfill ( 217 +xqwe, 244 +yqwe, 8 );
line ( 228 +xqwe, 233 +yqwe, 224 +xqwe, 237 +yqwe);
line ( 224 +xqwe, 237 +yqwe, 206 +xqwe, 255 +yqwe);
line ( 221 +xqwe, 232 +yqwe, 236 +xqwe, 232 +yqwe);
line ( 236 +xqwe, 232 +yqwe, 236 +xqwe, 231 +yqwe);
line ( 236 +xqwe, 231 +yqwe, 221 +xqwe, 231 +yqwe);
line ( 221 +xqwe, 231 +yqwe, 221 +xqwe, 230 +yqwe);
line ( 221 +xqwe, 230 +yqwe, 236 +xqwe, 230 +yqwe);
line ( 212 +xqwe, 256 +yqwe, 198 +xqwe, 256 +yqwe);
line ( 198 +xqwe, 256 +yqwe, 198 +xqwe, 255 +yqwe);
line ( 198 +xqwe, 255 +yqwe, 211 +xqwe, 255 +yqwe);
line ( 211 +xqwe, 255 +yqwe, 211 +xqwe, 254 +yqwe);
line ( 211 +xqwe, 254 +yqwe, 198 +xqwe, 254 +yqwe);
setcolor ( 1 );
line ( 251 +xqwe, 150 +yqwe, 251 +xqwe, 139 +yqwe);
line ( 251 +xqwe, 139 +yqwe, 273 +xqwe, 139 +yqwe);
line ( 273 +xqwe, 139 +yqwe, 275 +xqwe, 161 +yqwe);
line ( 275 +xqwe, 161 +yqwe, 270 +xqwe, 163 +yqwe);
line ( 270 +xqwe, 163 +yqwe, 268 +xqwe, 161 +yqwe);
line ( 268 +xqwe, 161 +yqwe, 268 +xqwe, 144 +yqwe);
line ( 268 +xqwe, 144 +yqwe, 266 +xqwe, 143 +yqwe);
line ( 266 +xqwe, 143 +yqwe, 256 +xqwe, 143 +yqwe);
line ( 256 +xqwe, 143 +yqwe, 254 +xqwe, 145 +yqwe);
line ( 254 +xqwe, 145 +yqwe, 257 +xqwe, 151 +yqwe);
setfillstyle ( 1 , 1 );
floodfill ( 253 +xqwe, 147 +yqwe, 1 );
setcolor ( 8 );
line ( 147 +xqwe, 205 +yqwe, 163 +xqwe, 283 +yqwe);
setcolor ( 2 );
line ( 181 +xqwe, 148 +yqwe, 185 +xqwe, 154 +yqwe);
line ( 185 +xqwe, 154 +yqwe, 215 +xqwe, 164 +yqwe);
line ( 215 +xqwe, 164 +yqwe, 230 +xqwe, 169 +yqwe);
line ( 230 +xqwe, 169 +yqwe, 235 +xqwe, 174 +yqwe);
line ( 235 +xqwe, 174 +yqwe, 226 +xqwe, 228 +yqwe);
line ( 226 +xqwe, 228 +yqwe, 241 +xqwe, 238 +yqwe);
line ( 241 +xqwe, 238 +yqwe, 254 +xqwe, 168 +yqwe);
line ( 254 +xqwe, 168 +yqwe, 251 +xqwe, 165 +yqwe);
line ( 251 +xqwe, 165 +yqwe, 247 +xqwe, 160 +yqwe);
line ( 247 +xqwe, 160 +yqwe, 214 +xqwe, 145 +yqwe);
line ( 214 +xqwe, 145 +yqwe, 212 +xqwe, 139 +yqwe);
line ( 212 +xqwe, 139 +yqwe, 180 +xqwe, 136 +yqwe);
line ( 180 +xqwe, 136 +yqwe, 181 +xqwe, 147 +yqwe);
setfillstyle ( 1 , 2 );
floodfill ( 206 +xqwe, 147 +yqwe, 2 );
setcolor ( 8 );
line ( 227 +xqwe, 231 +yqwe, 220 +xqwe, 239 +yqwe);
line ( 220 +xqwe, 239 +yqwe, 232 +xqwe, 252 +yqwe);
line ( 232 +xqwe, 252 +yqwe, 235 +xqwe, 249 +yqwe);
line ( 235 +xqwe, 249 +yqwe, 235 +xqwe, 245 +yqwe);
line ( 235 +xqwe, 245 +yqwe, 231 +xqwe, 240 +yqwe);
line ( 231 +xqwe, 240 +yqwe, 233 +xqwe, 233 +yqwe);
line ( 233 +xqwe, 233 +yqwe, 225 +xqwe, 229 +yqwe);
line ( 225 +xqwe, 229 +yqwe, 219 +xqwe, 237 +yqwe);
line ( 219 +xqwe, 237 +yqwe, 223 +xqwe, 242 +yqwe);
setfillstyle ( 1 , 8 );
floodfill ( 226 +xqwe, 239 +yqwe, 8 );
setcolor ( 5 );
line ( 213 +xqwe, 138 +yqwe, 219 +xqwe, 127 +yqwe);
line ( 219 +xqwe, 127 +yqwe, 223 +xqwe, 123 +yqwe);
line ( 223 +xqwe, 123 +yqwe, 231 +xqwe, 117 +yqwe);
line ( 231 +xqwe, 117 +yqwe, 244 +xqwe, 141 +yqwe);
line ( 244 +xqwe, 141 +yqwe, 265 +xqwe, 149 +yqwe);
line ( 265 +xqwe, 149 +yqwe, 269 +xqwe, 133 +yqwe);
line ( 269 +xqwe, 133 +yqwe, 252 +xqwe, 128 +yqwe);
line ( 252 +xqwe, 128 +yqwe, 241 +xqwe, 105 +yqwe);
line ( 241 +xqwe, 105 +yqwe, 238 +xqwe, 102 +yqwe);
line ( 238 +xqwe, 102 +yqwe, 240 +xqwe, 96 +yqwe);
line ( 240 +xqwe, 96 +yqwe, 232 +xqwe, 85 +yqwe);
line ( 232 +xqwe, 85 +yqwe, 221 +xqwe, 85 +yqwe);
line ( 221 +xqwe, 85 +yqwe, 215 +xqwe, 89 +yqwe);
line ( 215 +xqwe, 89 +yqwe, 207 +xqwe, 97 +yqwe);
line ( 207 +xqwe, 97 +yqwe, 192 +xqwe, 112 +yqwe);
line ( 192 +xqwe, 112 +yqwe, 182 +xqwe, 127 +yqwe);
line ( 182 +xqwe, 127 +yqwe, 182 +xqwe, 137 +yqwe);
line ( 182 +xqwe, 137 +yqwe, 213 +xqwe, 138 +yqwe);
setfillstyle ( 1 , 5 );
floodfill ( 210 +xqwe, 131 +yqwe, 5 );
setcolor ( 15 );
line ( 238 +xqwe, 92 +yqwe, 245 +xqwe, 86 +yqwe);
line ( 245 +xqwe, 86 +yqwe, 246 +xqwe, 91 +yqwe);
line ( 246 +xqwe, 91 +yqwe, 249 +xqwe, 95 +yqwe);
line ( 249 +xqwe, 95 +yqwe, 254 +xqwe, 90 +yqwe);
line ( 254 +xqwe, 90 +yqwe, 260 +xqwe, 84 +yqwe);
line ( 260 +xqwe, 84 +yqwe, 262 +xqwe, 77 +yqwe);
line ( 262 +xqwe, 77 +yqwe, 263 +xqwe, 73 +yqwe);
line ( 263 +xqwe, 73 +yqwe, 262 +xqwe, 69 +yqwe);
line ( 262 +xqwe, 69 +yqwe, 258 +xqwe, 66 +yqwe);
line ( 258 +xqwe, 66 +yqwe, 253 +xqwe, 63 +yqwe);
line ( 253 +xqwe, 63 +yqwe, 247 +xqwe, 65 +yqwe);
line ( 247 +xqwe, 65 +yqwe, 241 +xqwe, 68 +yqwe);
line ( 241 +xqwe, 68 +yqwe, 236 +xqwe, 72 +yqwe);
line ( 236 +xqwe, 72 +yqwe, 236 +xqwe, 77 +yqwe);
line ( 236 +xqwe, 77 +yqwe, 233 +xqwe, 81 +yqwe);
line ( 233 +xqwe, 81 +yqwe, 232 +xqwe, 85 +yqwe);
line ( 232 +xqwe, 85 +yqwe, 238 +xqwe, 92 +yqwe);
setfillstyle ( 1 , 15 );
floodfill ( 238 +xqwe, 86 +yqwe, 15 );
line ( 259 +xqwe, 85 +yqwe, 259 +xqwe, 93 +yqwe);
line ( 259 +xqwe, 93 +yqwe, 255 +xqwe, 89 +yqwe);
setfillstyle ( 1 , 15 );
floodfill ( 257 +xqwe, 89 +yqwe, 15 );
setcolor ( 0 );
line ( 252 +xqwe, 91 +yqwe, 250 +xqwe, 90 +yqwe);
putpixel ( 258 +xqwe, 81 +yqwe, 0 );
putpixel ( 258 +xqwe, 80 +yqwe, 0 );
putpixel ( 257 +xqwe, 80 +yqwe, 0 );
putpixel ( 257 +xqwe, 79 +yqwe, 0 );
setcolor ( 8 );
line ( 264 +xqwe, 76 +yqwe, 259 +xqwe, 75 +yqwe);
line ( 259 +xqwe, 75 +yqwe, 253 +xqwe, 75 +yqwe);
line ( 253 +xqwe, 75 +yqwe, 251 +xqwe, 72 +yqwe);
line ( 251 +xqwe, 72 +yqwe, 247 +xqwe, 71 +yqwe);
line ( 247 +xqwe, 71 +yqwe, 244 +xqwe, 69 +yqwe);
line ( 244 +xqwe, 69 +yqwe, 239 +xqwe, 68 +yqwe);
line ( 239 +xqwe, 68 +yqwe, 250 +xqwe, 61 +yqwe);
line ( 250 +xqwe, 61 +yqwe, 255 +xqwe, 62 +yqwe);
line ( 255 +xqwe, 62 +yqwe, 260 +xqwe, 65 +yqwe);
line ( 260 +xqwe, 65 +yqwe, 266 +xqwe, 70 +yqwe);
line ( 266 +xqwe, 70 +yqwe, 266 +xqwe, 74 +yqwe);
line ( 266 +xqwe, 74 +yqwe, 263 +xqwe, 76 +yqwe);
setfillstyle ( 1 , 8 );
floodfill ( 260 +xqwe, 73 +yqwe, 8 );
line ( 242 +xqwe, 68 +yqwe, 237 +xqwe, 71 +yqwe);
line ( 237 +xqwe, 71 +yqwe, 234 +xqwe, 71 +yqwe);
line ( 234 +xqwe, 71 +yqwe, 236 +xqwe, 68 +yqwe);
line ( 236 +xqwe, 68 +yqwe, 239 +xqwe, 64 +yqwe);
line ( 239 +xqwe, 64 +yqwe, 249 +xqwe, 64 +yqwe);
setfillstyle ( 1 , 8 );
floodfill ( 240 +xqwe, 66 +yqwe, 8 );
line ( 242 +xqwe, 63 +yqwe, 246 +xqwe, 63 +yqwe);
line ( 247 +xqwe, 62 +yqwe, 245 +xqwe, 62 +yqwe);
putpixel ( 249 +xqwe, 95 +yqwe, 0 );
putpixel ( 248 +xqwe, 95 +yqwe, 0 );
putpixel ( 250 +xqwe, 94 +yqwe, 0 );
putpixel ( 248 +xqwe, 94 +yqwe, 0 );
setcolor ( 15 );
line ( 246 +xqwe, 91 +yqwe, 244 +xqwe, 88 +yqwe);
putpixel ( 245 +xqwe, 88 +yqwe, 15 );
line ( 244 +xqwe, 88 +yqwe, 239 +xqwe, 93 +yqwe);
line ( 238 +xqwe, 93 +yqwe, 243 +xqwe, 88 +yqwe);
line ( 269 +xqwe, 139 +yqwe, 275 +xqwe, 139 +yqwe);
line ( 275 +xqwe, 139 +yqwe, 278 +xqwe, 137 +yqwe);
line ( 278 +xqwe, 137 +yqwe, 281 +xqwe, 140 +yqwe);
line ( 281 +xqwe, 140 +yqwe, 280 +xqwe, 143 +yqwe);
line ( 280 +xqwe, 143 +yqwe, 280 +xqwe, 147 +yqwe);
line ( 280 +xqwe, 147 +yqwe, 275 +xqwe, 150 +yqwe);
line ( 275 +xqwe, 150 +yqwe, 275 +xqwe, 147 +yqwe);
line ( 275 +xqwe, 147 +yqwe, 271 +xqwe, 147 +yqwe);
line ( 271 +xqwe, 147 +yqwe, 267 +xqwe, 146 +yqwe);
line ( 267 +xqwe, 146 +yqwe, 269 +xqwe, 139 +yqwe);
setfillstyle ( 1 , 15 );
floodfill ( 273 +xqwe, 142 +yqwe, 15 );
line ( 267 +xqwe, 154 +yqwe, 267 +xqwe, 156 +yqwe);
line ( 267 +xqwe, 156 +yqwe, 266 +xqwe, 155 +yqwe);
line ( 267 +xqwe, 152 +yqwe, 266 +xqwe, 153 +yqwe);
line ( 185 +xqwe, 204 +yqwe, 170 +xqwe, 194 +yqwe);
line ( 170 +xqwe, 194 +yqwe, 150 +xqwe, 189 +yqwe);
line ( 150 +xqwe, 189 +yqwe, 130 +xqwe, 189 +yqwe);
line ( 130 +xqwe, 189 +yqwe, 120 +xqwe, 199 +yqwe);
line ( 271 +xqwe, 181 +yqwe, 276 +xqwe, 176 +yqwe);
line ( 276 +xqwe, 176 +yqwe, 286 +xqwe, 176 +yqwe);
line ( 286 +xqwe, 176 +yqwe, 306 +xqwe, 181 +yqwe);
line ( 306 +xqwe, 181 +yqwe, 321 +xqwe, 191 +yqwe);

for s:=1 to 5 do
begin


if s/2=int(s/2) then
begin

setcolor ( 0 );
circle ( 288 +xqwe, 228 +yqwe, 40 );
putpixel ( 288 +xqwe, 228 +yqwe, 7 );
circle ( 155 +xqwe, 244 +yqwe, 40 );
putpixel ( 155 +xqwe, 244 +yqwe, 7 );
line ( 155 +xqwe, 244 +yqwe, 155 +xqwe, 284 +yqwe);
line ( 155 +xqwe, 284 +yqwe, 155 +xqwe, 204 +yqwe);
line ( 115 +xqwe, 244 +yqwe, 195 +xqwe, 244 +yqwe);
line ( 192 +xqwe, 230 +yqwe, 155 +xqwe, 244 +yqwe);
line ( 155 +xqwe, 244 +yqwe, 117 +xqwe, 255 +yqwe);
line ( 122 +xqwe, 265 +yqwe, 155 +xqwe, 243 +yqwe);
line ( 155 +xqwe, 243 +yqwe, 188 +xqwe, 222 +yqwe);
line ( 178 +xqwe, 212 +yqwe, 155 +xqwe, 243 +yqwe);
line ( 155 +xqwe, 243 +yqwe, 127 +xqwe, 272 +yqwe);
line ( 134 +xqwe, 277 +yqwe, 155 +xqwe, 244 +yqwe);
line ( 155 +xqwe, 244 +yqwe, 173 +xqwe, 208 +yqwe);
line ( 164 +xqwe, 205 +yqwe, 155 +xqwe, 243 +yqwe);
line ( 155 +xqwe, 243 +yqwe, 145 +xqwe, 205 +yqwe);
line ( 136 +xqwe, 209 +yqwe, 154 +xqwe, 244 +yqwe);
line ( 154 +xqwe, 244 +yqwe, 127 +xqwe, 215 +yqwe);
line ( 121 +xqwe, 223 +yqwe, 152 +xqwe, 242 +yqwe);
line ( 152 +xqwe, 242 +yqwe, 117 +xqwe, 233 +yqwe);
line ( 155 +xqwe, 245 +yqwe, 144 +xqwe, 282 +yqwe);
line ( 165 +xqwe, 282 +yqwe, 155 +xqwe, 243 +yqwe);
line ( 155 +xqwe, 243 +yqwe, 194 +xqwe, 252 +yqwe);
line ( 191 +xqwe, 261 +yqwe, 156 +xqwe, 244 +yqwe);
line ( 156 +xqwe, 244 +yqwe, 185 +xqwe, 271 +yqwe);
line ( 176 +xqwe, 279 +yqwe, 156 +xqwe, 244 +yqwe);
line ( 248 +xqwe, 227 +yqwe, 288 +xqwe, 228 +yqwe);
line ( 288 +xqwe, 228 +yqwe, 328 +xqwe, 229 +yqwe);
line ( 290 +xqwe, 228 +yqwe, 327 +xqwe, 238 +yqwe);
line ( 293 +xqwe, 228 +yqwe, 250 +xqwe, 217 +yqwe);
line ( 255 +xqwe, 207 +yqwe, 288 +xqwe, 227 +yqwe);
line ( 288 +xqwe, 227 +yqwe, 261 +xqwe, 199 +yqwe);
line ( 271 +xqwe, 192 +yqwe, 290 +xqwe, 227 +yqwe);
line ( 290 +xqwe, 227 +yqwe, 281 +xqwe, 189 +yqwe);
line ( 293 +xqwe, 189 +yqwe, 291 +xqwe, 228 +yqwe);
line ( 291 +xqwe, 228 +yqwe, 302 +xqwe, 191 +yqwe);
line ( 312 +xqwe, 198 +yqwe, 293 +xqwe, 228 +yqwe);
line ( 321 +xqwe, 206 +yqwe, 296 +xqwe, 229 +yqwe);
line ( 296 +xqwe, 229 +yqwe, 326 +xqwe, 216 +yqwe);
line ( 324 +xqwe, 246 +yqwe, 291 +xqwe, 229 +yqwe);
line ( 291 +xqwe, 229 +yqwe, 250 +xqwe, 238 +yqwe);
line ( 255 +xqwe, 248 +yqwe, 289 +xqwe, 229 +yqwe);
line ( 289 +xqwe, 229 +yqwe, 261 +xqwe, 258 +yqwe);
line ( 271 +xqwe, 263 +yqwe, 290 +xqwe, 228 +yqwe);
line ( 290 +xqwe, 228 +yqwe, 282 +xqwe, 268 +yqwe);
line ( 295 +xqwe, 266 +yqwe, 289 +xqwe, 230 +yqwe);
line ( 289 +xqwe, 230 +yqwe, 307 +xqwe, 263 +yqwe);
line ( 316 +xqwe, 256 +yqwe, 291 +xqwe, 231 +yqwe);






setcolor ( 7 );
circle ( 288 +xqwe, 228 +yqwe, 40 );
putpixel ( 288 +xqwe, 228 +yqwe, 7 );
circle ( 155 +xqwe, 244 +yqwe, 40 );
putpixel ( 155 +xqwe, 244 +yqwe, 7 );
line ( 163 +xqwe, 283 +yqwe, 147 +xqwe, 205 +yqwe);
line ( 163 +xqwe, 205 +yqwe, 148 +xqwe, 283 +yqwe);
line ( 137 +xqwe, 279 +yqwe, 174 +xqwe, 209 +yqwe);
line ( 184 +xqwe, 216 +yqwe, 126 +xqwe, 272 +yqwe);
line ( 119 +xqwe, 260 +yqwe, 191 +xqwe, 227 +yqwe);
line ( 195 +xqwe, 239 +yqwe, 115 +xqwe, 249 +yqwe);
line ( 116 +xqwe, 237 +yqwe, 195 +xqwe, 250 +yqwe);
line ( 190 +xqwe, 263 +yqwe, 120 +xqwe, 226 +yqwe);
line ( 129 +xqwe, 214 +yqwe, 184 +xqwe, 272 +yqwe);
line ( 173 +xqwe, 279 +yqwe, 137 +xqwe, 208 +yqwe);
line ( 279 +xqwe, 267 +yqwe, 296 +xqwe, 189 +yqwe);
line ( 308 +xqwe, 194 +yqwe, 268 +xqwe, 262 +yqwe);
line ( 258 +xqwe, 255 +yqwe, 317 +xqwe, 201 +yqwe);
line ( 324 +xqwe, 212 +yqwe, 252 +xqwe, 244 +yqwe);
line ( 248 +xqwe, 231 +yqwe, 328 +xqwe, 226 +yqwe);
line ( 326 +xqwe, 239 +yqwe, 250 +xqwe, 218 +yqwe);
line ( 257 +xqwe, 205 +yqwe, 322 +xqwe, 250 +yqwe);
line ( 312 +xqwe, 260 +yqwe, 264 +xqwe, 196 +yqwe);
line ( 275 +xqwe, 191 +yqwe, 304 +xqwe, 265 +yqwe);
line ( 291 +xqwe, 268 +yqwe, 286 +xqwe, 188 +yqwe);





end;

if s/2<>int(s/2) then
begin


setcolor ( 0 );
line ( 163 +xqwe, 283 +yqwe, 147 +xqwe, 205 +yqwe);
line ( 163 +xqwe, 205 +yqwe, 148 +xqwe, 283 +yqwe);
line ( 137 +xqwe, 279 +yqwe, 174 +xqwe, 209 +yqwe);
line ( 184 +xqwe, 216 +yqwe, 126 +xqwe, 272 +yqwe);
line ( 119 +xqwe, 260 +yqwe, 191 +xqwe, 227 +yqwe);
line ( 195 +xqwe, 239 +yqwe, 115 +xqwe, 249 +yqwe);
line ( 116 +xqwe, 237 +yqwe, 195 +xqwe, 250 +yqwe);
line ( 190 +xqwe, 263 +yqwe, 120 +xqwe, 226 +yqwe);
line ( 129 +xqwe, 214 +yqwe, 184 +xqwe, 272 +yqwe);
line ( 173 +xqwe, 279 +yqwe, 137 +xqwe, 208 +yqwe);
line ( 279 +xqwe, 267 +yqwe, 296 +xqwe, 189 +yqwe);
line ( 308 +xqwe, 194 +yqwe, 268 +xqwe, 262 +yqwe);
line ( 258 +xqwe, 255 +yqwe, 317 +xqwe, 201 +yqwe);
line ( 324 +xqwe, 212 +yqwe, 252 +xqwe, 244 +yqwe);
line ( 248 +xqwe, 231 +yqwe, 328 +xqwe, 226 +yqwe);
line ( 326 +xqwe, 239 +yqwe, 250 +xqwe, 218 +yqwe);
line ( 257 +xqwe, 205 +yqwe, 322 +xqwe, 250 +yqwe);
line ( 312 +xqwe, 260 +yqwe, 264 +xqwe, 196 +yqwe);
line ( 275 +xqwe, 191 +yqwe, 304 +xqwe, 265 +yqwe);
line ( 291 +xqwe, 268 +yqwe, 286 +xqwe, 188 +yqwe);



setcolor ( 7 );
circle ( 288 +xqwe, 228 +yqwe, 40 );
putpixel ( 288 +xqwe, 228 +yqwe, 7 );
circle ( 155 +xqwe, 244 +yqwe, 40 );
putpixel ( 155 +xqwe, 244 +yqwe, 7 );
line ( 155 +xqwe, 244 +yqwe, 155 +xqwe, 284 +yqwe);
line ( 155 +xqwe, 284 +yqwe, 155 +xqwe, 204 +yqwe);
line ( 115 +xqwe, 244 +yqwe, 195 +xqwe, 244 +yqwe);
line ( 192 +xqwe, 230 +yqwe, 155 +xqwe, 244 +yqwe);
line ( 155 +xqwe, 244 +yqwe, 117 +xqwe, 255 +yqwe);
line ( 122 +xqwe, 265 +yqwe, 155 +xqwe, 243 +yqwe);
line ( 155 +xqwe, 243 +yqwe, 188 +xqwe, 222 +yqwe);
line ( 178 +xqwe, 212 +yqwe, 155 +xqwe, 243 +yqwe);
line ( 155 +xqwe, 243 +yqwe, 127 +xqwe, 272 +yqwe);
line ( 134 +xqwe, 277 +yqwe, 155 +xqwe, 244 +yqwe);
line ( 155 +xqwe, 244 +yqwe, 173 +xqwe, 208 +yqwe);
line ( 164 +xqwe, 205 +yqwe, 155 +xqwe, 243 +yqwe);
line ( 155 +xqwe, 243 +yqwe, 145 +xqwe, 205 +yqwe);
line ( 136 +xqwe, 209 +yqwe, 154 +xqwe, 244 +yqwe);
line ( 154 +xqwe, 244 +yqwe, 127 +xqwe, 215 +yqwe);
line ( 121 +xqwe, 223 +yqwe, 152 +xqwe, 242 +yqwe);
line ( 152 +xqwe, 242 +yqwe, 117 +xqwe, 233 +yqwe);
line ( 155 +xqwe, 245 +yqwe, 144 +xqwe, 282 +yqwe);
line ( 165 +xqwe, 282 +yqwe, 155 +xqwe, 243 +yqwe);
line ( 155 +xqwe, 243 +yqwe, 194 +xqwe, 252 +yqwe);
line ( 191 +xqwe, 261 +yqwe, 156 +xqwe, 244 +yqwe);
line ( 156 +xqwe, 244 +yqwe, 185 +xqwe, 271 +yqwe);
line ( 176 +xqwe, 279 +yqwe, 156 +xqwe, 244 +yqwe);
line ( 248 +xqwe, 227 +yqwe, 288 +xqwe, 228 +yqwe);
line ( 288 +xqwe, 228 +yqwe, 328 +xqwe, 229 +yqwe);
line ( 290 +xqwe, 228 +yqwe, 327 +xqwe, 238 +yqwe);
line ( 293 +xqwe, 228 +yqwe, 250 +xqwe, 217 +yqwe);
line ( 255 +xqwe, 207 +yqwe, 288 +xqwe, 227 +yqwe);
line ( 288 +xqwe, 227 +yqwe, 261 +xqwe, 199 +yqwe);
line ( 271 +xqwe, 192 +yqwe, 290 +xqwe, 227 +yqwe);
line ( 290 +xqwe, 227 +yqwe, 281 +xqwe, 189 +yqwe);
line ( 293 +xqwe, 189 +yqwe, 291 +xqwe, 228 +yqwe);
line ( 291 +xqwe, 228 +yqwe, 302 +xqwe, 191 +yqwe);
line ( 312 +xqwe, 198 +yqwe, 293 +xqwe, 228 +yqwe);
line ( 321 +xqwe, 206 +yqwe, 296 +xqwe, 229 +yqwe);
line ( 296 +xqwe, 229 +yqwe, 326 +xqwe, 216 +yqwe);
line ( 324 +xqwe, 246 +yqwe, 291 +xqwe, 229 +yqwe);
line ( 291 +xqwe, 229 +yqwe, 250 +xqwe, 238 +yqwe);
line ( 255 +xqwe, 248 +yqwe, 289 +xqwe, 229 +yqwe);
line ( 289 +xqwe, 229 +yqwe, 261 +xqwe, 258 +yqwe);
line ( 271 +xqwe, 263 +yqwe, 290 +xqwe, 228 +yqwe);
line ( 290 +xqwe, 228 +yqwe, 282 +xqwe, 268 +yqwe);
line ( 295 +xqwe, 266 +yqwe, 289 +xqwe, 230 +yqwe);
line ( 289 +xqwe, 230 +yqwe, 307 +xqwe, 263 +yqwe);
line ( 316 +xqwe, 256 +yqwe, 291 +xqwe, 231 +yqwe);



end;




end;





{---------------------------------------------}
setvisualpage(i);
delay(5000);
setfillstyle (1,0);
bar (0,0,640,480);

end;

end.