Нужно доработать программу(Python) сам код:
from turtle import *
from random import *
t1 = Turtle()
t2 = Turtle()
t3 = Turtle()
t4 = Turtle()

t1.color("red")
t2.color("blue")

t3.color("orange")
t4.color("black")

t1.left(randint(0,360))
t2.left(randint(0,360))

t3.left(randint(0,360))
t4.left(randint(0,360))

t1.speed(2000)
t2.speed(2000)
t3.speed(2000)
t4.speed(2000)
t1.penup()
t2.penup()
t3.penup()
t4.penup()
t1.shape("turtle")
t2.shape("turtle")
t3.shape("turtle")
t4.shape("turtle")

def catch(x,y):
t1.goto(0,0)
t1.left(randint(0,360))

def catch2(x,y):
t2.goto(0,0)
t2.left(randint(0,360))

def catch3(x,y):
t3.goto(0,0)
t3.left(randint(0,360))

def catch4(x,y):
t4.goto(0,0)
t4.left(randint(0,360))

t1.onclick(catch)
t2.onclick(catch2)

t3.onclick(catch3)
t4.onclick(catch4)

while True:
t1.forward(1)
t2.forward(1)
t3.forward(1)
t4.forward(1)

Суть игры: кликать по черепашкам чтобы они не сбежали с поля

Задача: Нужно зделать так чтобы когда черепашки выходили из координат (по х -200 и 200 и по у -200 200) программа останавливалась

Const n=8;
var 
a:array[1..n,1..n] of integer;
i,j,k,s,s1,si,dmin,smin:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:4);
  end;
  writeln;
 end;
write('k = '); readln(k);
s:=0;
for j:=1 to n do s:=s+a[k,j];
writeln('s = ',s);
dmin:=999999; smin:=999999;
for i:=1 to n do
 if i<>k then
  begin
  s1:=0; 
  for j:=1 to n do s1:=s1+a[i,j];
  writeln('s',i,' = ',s1);
  if abs(s1-s)<dmin then begin dmin:=abs(s1-s); smin:=s1; si:=i; end;
  end;
writeln('Номер строки = ',si,', smin = ',smin);
end.

Пример:
Исходный массив:
   9   0  22  40  20  35   2  25
  23  30  22  35  41   0   9  40
   1  15   6  18  43  47  34  33
  26   5   2  45  13  46  40   2
  26  39   7  31   3  43  20   8
  25  15  24   6  10  16   3  25
  47   0  27  35  14  15  36  11
  16  38  14  14  33   7  11  26
k = 5
s = 177
s1 = 153
s2 = 200
s3 = 197
s4 = 179
s6 = 124
s7 = 185
s8 = 159
Номер строки = 4, smin = 179

9 + 9 + 9 = 27, при вводе числа, больше 27 будут выведены все трёхзначные числа.

Procedure ABC(A:integer);
Var i:integer;
Begin
For i:= 100 to 999 do
    if (i div 100)+((i div 10) mod 10)+(i mod 10)<=A then
       Write(i,' ');
End;
Var A:integer;
Begin
Write('Введите целое число: ');
ReadLn(A);
ABC(A)
End.

Пример:

Введите целое число: 7
100 101 102 103 104 105 106 110 111 112 113 114 115 120 121 122 123 124 130 131 132 133 140 141 142 150 151 160 200 201 202 203 204 205 210 211 212 213 214 220 221 222 223 230 231 232 240 241 250 300 301 302 303 304 310 311 312 313 320 321 322 330 331 340 400 401 402 403 410 411 412 420 421 430 500 501 502 510 511 520 600 601 610 700