program DrawShape;
uses
  Graph; // Подключаем модуль для работы с графикой

var
  gd, gm: Integer;
  userInput: Integer;

begin
  // Инициализация графического режима
  gd := Detect;
  InitGraph(gd, gm, '');

  // Проверка инициализации графики
  if GraphResult <> grOk then
  begin
    WriteLn('Ошибка инициализации графики!');
    Halt(1);
  end;

  // Запрос ввода у пользователя
  Write('Введите число (1 - круг, другое - квадрат): ');
  ReadLn(userInput);

  // Очистка экрана
  ClearDevice;

  // Рисование фигуры в зависимости от ввода
  if userInput = 1 then
  begin
    // Рисуем круг
    Circle(GetMaxX div 2, GetMaxY div 2, 100);
    OutTextXY(GetMaxX div 2 - 30, GetMaxY div 2 + 120, 'Это круг');
  end
  else
  begin
    // Рисуем квадрат
    Rectangle(GetMaxX div 2 - 100, GetMaxY div 2 - 100, 
              GetMaxX div 2 + 100, GetMaxY div 2 + 100);
    OutTextXY(GetMaxX div 2 - 40, GetMaxY div 2 + 120, 'Это квадрат');
  end;

  // Ждем нажатия клавиши перед закрытием графики
  ReadLn;
  CloseGraph;
end.