Pascal abc.! нужно нарисовать бабочку.

Uses graphabc; var  x,y: integer; begin pen.color: =clred; brush.color : =clred; circle(170,200,30); circle(230,200,30); circle(150,150,50); circle(250,150,50); brush.color : =clgold; ellipse(190,110,210,230); brush.color : =cldarkgreen; line(200,110,180,80); line(200,110,220,80); circle(200,110,10);   end.

Прежде всего, основание 17 - в нем 17₁₀ запишется как 10 - подходит, четное. далее, основания меньше 17, в которых запись числа 17₁₀ состоит из двух цифр. 17 = 16+1 = 15+2 = 14+3 = 13+4 = 12+5 = 11+6 = 10+7 = 9+8 = 8+9 = вариант 8+9 уже не подходит. легко догадаться, что 16+1 - это 1×16+11 = 11₁₆ в развернутом виде, 15+2 = 12₁₅, 14+3 = 13₁₄ 9+8 = 18₉ и это последнее двухзначное число. 8+9 - это совсем не "9₈", поскольку цифра в записи числа не может быть даже равна основанию системы счисления, а не то, чтобы превышать его. итак, пока насчитали 5 оснований систем счисления. остановились на основании 8. 17 = 2×8+1 = 21₈. последняя цифра нечетная. 17 = 2×7+3 = 23₇. последняя цифра также нечетная. 17 = 2×6+5 = 25₆. и здесь последняя цифра нечетна. 17 = 3×5+2 = 32₅. подходит 17 = 4×4+1, но по основанию 4 не существует четверки в записи. все, двухзначные числа закончились. 17 = 1×3² + 2×3¹ + 2×3⁰ = 122₃. последняя цифра четная. 17 = 10001₂ - последняя цифра нечетная. всего получилось 5+2 = 7 систем счисления.

Program ran; label main; var x, y, min, max, s, p, d: integer; begin randomize; writeln('ввод промежутка'); write('от: '); readln(min); write('до: '); readln(max); main: x : = min + random(max - min + 1); y : = min + random(max - min + 1); if not(x = y) then begin s : = x + y; writeln('сумма: ', s); p : = x * y; writeln('произведение: ', p); if p > s then begin d : = p - s; writeln('произведение больше суммы на ', d); end; end else begin writeln('случайные числа равны, повтор '); goto main; end; end. ²