Сделать программу в 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.

Колличество цветов можно получить если знаем «вес» одного пикселя. чтобы получить всю палитру возведем 2 в степень 32