program avto;

uses graphABC;

var 
  i: integer;

begin
  SetWindowSize(800, 600);
  SetPenStyle(psClear);

  // Рисуем кузов автомобиля
  setBrushColor(ClGreen);
  rectangle(250, 250, 550, 351);

  // Рисуем переднюю часть автомобиля
  setBrushColor(ClAqua);
  rectangle(255, 255, 345, 395);
  rectangle(405, 255, 495, 395);

  // Рисуем дорогу
  setBrushColor(ClGray);
  rectangle(50, 350, 750, 500);

  // Рисуем линии на дороге
  setBrushColor(ClYellow);
  rectangle(749, 375, 764, 400);

  setBrushColor(ClRed); // Исправлено: заменено на ClRed
  rectangle(35, 375, 51, 400);

  // Рисуем колеса
  setBrushColor(ClLightGray);
  RoundRect(725, 450, 775, 475, 10, 10);
  RoundRect(25, 450, 75, 475, 10, 10);

  SetPenStyle(psSolid);

  // Рисуем детали автомобиля
  Line(250, 350, 250, 425);
  Line(250, 425, 300, 500);
  
  Line(400, 250, 400, 500); 

  Line(550, 350, 550, 425); 
  Line(550, 425, 500, 500);

  // Рисуем колеса
  setBrushColor(ClBlack); // Исправлено: заменено на ClBlack
  Circle(200, 500, 50);
  
  setBrushColor(ClLightGray);
  Circle(200, 500, 25);
  
  setBrushColor(ClBlack); // Исправлено: заменено на ClBlack
  Circle(600, 500, 50);
  
  setBrushColor(ClLightGray);
  Circle(600, 500, 25);
end.