uses GraphABC;
const space=10; // Зазор от кромки окна
      pw=3; // Толщина линии
var MaxHeight, MaxSize, a, r1: integer; R, G, B: byte; c: color; 
    ch: char; ok: boolean;
begin
  MaximizeWindow;
  MaxHeight:=WindowHeight-2*space;
  SetWindowTitle('Рисуем квадратик:)');
  writeln('Введите интенсивность красной, зелёной и синей составляющих цвета (RGB):');
  readln(R, G, B);
  c:=rgb(R, G, B);
  SetPenColor(c);
  SetPenWidth(pw);
  repeat
    ClearWindow; 
    writeln('Введите способ определения квадрата');
    writeln('(R - радиус описанной окружности; m - радиус вписанной окружности,');
    writeln('d - диагональ квадрата; с - сторона квадрата):');
    readln(ch);
    ch:=upcase(ch);
  until ch in ['R', 'M', 'D', 'C'];
  repeat
    ClearWindow;
    ok:=false;
    case ch of
      'R':
      begin
        writeln('Введите радиус описанной окружности не более ', MaxHeight div 2);
        read(r1);
        a:=round(r1*2/sqrt(2));
        if 2*r1<=MaxHeight then
          ok:=true;
      end;
      'M':
      begin
        writeln('Введите радиус вписанной окружности не более ', MaxHeight div 2);
        read(r1);
        a:=2*r1;
        if 2*r1<=MaxHeight then
          ok:=true;
      end;
      'D':
      begin
        writeln('Введите диагональ квадрата не более ', round(MaxHeight*sqrt(2)));
        read(r1);
        a:=round(r1/sqrt(2));
        if r1<=MaxHeight*sqrt(2) then
          ok:=true;
      end;
      else
       begin
        writeln('Введите сторону квадрата не более ', MaxHeight);
        read(r1);
        a:=r1;
        if r1<=MaxHeight then
          ok:=true;
      end;
    end;
  until ok;
  ClearWindow;
  Rectangle((WindowWidth - a) div 2, (WindowHeight - a) div 2, (WindowWidth + a) div 2, (WindowHeight + a) div 2);
  if (ch='R') or (ch='M') then
    DrawCircle(WindowWidth div 2,WindowHeight div 2, r1);
end.