НУЖНО СДЕЛАТЬ НА ПИТОНЕ

Найти все возможные целые значения и когда ответ у будет целым числом. (n<=100) y² = n! + 1

Uses GraphABC;
var a,b,c:array[10..99] of integer;
 ast,bst,cst:string;
 i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.

Во втором прямоугольнике нужно написать "подойди к платью" и обвести эту рамку зеленым карандашом.
Нужно нарисовать стрелки вниз.
От треугольника в котором написано "остались платья?" нужно провести стрелку со словом "ДА" до второй черной стрелки(после фразы "выйди из шкатулки).Рамку "остались платья?" тоже надо обвести зелёным цветом.
Перед словом "конец" есть пустая рамка,там напиши "иди в шкатулку",а у стрелки которая ведёт к этой рамке нужно написать "НЕТ"
И последнее.От треугольной рамки с вопросом "все банты пришиты?" идёт стрелка вниз,рядом с ней напиши слово "ДА".И нужно самому провести стрелку до стрелки вниз от фразы "подойди к платью" и у новой стрелки написать слово "НЕТ"
Мы делали это в классе,в году поэтому должно быть правильно:)