uses Graph;

var
  T: array[1..31] of Integer;
  gd, gm, i: Integer;
  x, y, xNext, yNext: Integer;
  zeroY: Integer;

begin
  { 1. Заполняем массив данными вручную или случайно }
  Randomize;
  for i := 1 to 31 do
    T[i] := Random(31) - 15; { Диапазон от -15 до +15 }

  { 2. Инициализация графики }
  gd := Detect;
  { Если путь к драйверам (BGI) другой, укажи его в кавычках, например 'C:\BP\BGI' }
  InitGraph(gd, gm, '');

  if GraphResult <> grOk then
  begin
    WriteLn('Графическая ошибка!');
    Halt(1);
  end;

  { 3. Рисуем }
  zeroY := 240; { Константа для центра экрана 640x480 }
  
  { Рисуем ось X }
  SetColor(White);
  Line(0, zeroY, 640, zeroY);
  OutTextXY(10, zeroY + 10, '0 Gradusov');

  for i := 1 to 30 do
  begin
    { Вычисляем координаты }
    x := i * 15 + 20;
    xNext := (i + 1) * 15 + 20;
    y := zeroY - (T[i] * 10);
    yNext := zeroY - (T[i+1] * 10);

    { Выбор цвета: выше 0 - красный (4), ниже - синий (1) }
    if T[i] >= 0 then 
      SetColor(LightRed) 
    else 
      SetColor(LightBlue);

    { Рисуем линию графика }
    Line(x, y, xNext, yNext);
    
    { Маленький кружок в точке }
    Circle(x, y, 1);
  end;

  ReadLn;
  CloseGraph;
end.