Сделать программу в pascal.пользователь вводит радиус окружности и стороны прямоугольника , программа в графическом режиме выводит нам получившийся прямоугольник (вписанный , описанный, или посторонний), и над ним надпись (окружность вписана/описана /посторонняя

Будет работать только в pascal.abc. желательно вводите величины от 30-50, так как всё измеряется в пикселях. program zagacha; uses graphabc; var r, a, b: integer; begin  writeln('введите значение r');   readln(r);   writeln('введите значение a');   readln(a);   writeln('введите значение b');   readln(b);   if ((r + a + b) < 30) or ((r + a + b) > 200) then  begin  r : = 50; a : = 100; b : = 100; end;   drawcircle(round(window.width / 2), round(window.height / 2), r); drawrectangle(round((window.width - a) / 2), round((window.height - b) / 2), round((window.width + a) / 2) + 1, round((window.height + b) / 2) + 1);     if (a = b) and (a * b = 4 * r * r) then  textout(round(window.width / 2 - 50), 10, 'окружность вписана')  else if (a = b) and (a * b = 2 * r * r) then  textout(round(window.width / 2 - 50), 10, 'окружность описана')  else  textout(round(window.width / 2 - 50), 10, 'окружность посторонняя') end.

Sub aaa()       const n = 100       dim i as integer, s as integer       dim r(1 to n) as integer       randomize timer       for i = 1 to n               r(i) = int(385 * rnd - 22)       next i       s = 0       for i = 1 to n step 2               if r(i) < 0 then s = s + r(i)       next i       msgbox "сумма нечетных элементов с отрицательными значениями равна " + str(s) end sub

Смотрим на предназначение переменных l и m: l - счетчик того, сколько раз выполняется условие цикла (while   x > 0). т.к. в конце программы l становится равным 2, значит условие цикла (while   x > 0) выполняется 2 раза. m, судя по условию (if m < x mod 10) - максимальная цифра числа x, т.к. x mod 10 - это остаток от деления числа x на десять. в конце цикла while x приравнивается x div 10; кроме того, после 2 проходов цикла, x стало равным 0. это дает нам право считать, что начальное число x было двузначным. т.к. в конце программы m становится равным 8, значит максимальная цифра в числе x - это 8. значит изначально число x могло быть равно: 18 28 38 48 58 68 78 80 81 82 83 84 85 86 87 88 т.к. требуется наибольшее, то выбираем 88.