ANTICHAT — форум по информационной безопасности, OSINT и технологиям

{$APPTYPE CONSOLE}
const
  ch = 30000;
var
  i, j, n, rez: integer;
  a: array [1..ch] of integer;

begin
  reset(input, 'input.txt');
  rewrite(output, 'output.txt');
  readln(n);
  rez:=0;
  for i:=1 to n do read(a[i]);
  i:=1;
  while i<n do
    begin
      if n - i >= 3 then
        begin
          if abs(a[i]-a[i+1])+abs(a[i+1]-a[i+2]) < 3*abs(a[i+2] - a[i]) then
            begin
              rez:=rez + abs(a[i]-a[i+1]);
              inc(i);
            end
         else
           begin
             rez:=rez + 3*abs(a[i+2] - a[i]);
             inc(i, 2);
           end;
        end
      else
        begin
          rez:=rez + abs(a[i]-a[i+1]);
          inc(i);
        end;
    end;
  writeln(rez);
  close(input);
  close(output);
end.

  reset(input, 'input.txt');
  rewrite(output, 'output.txt');

  assign(input, 'input.txt');
  assign(output, 'output.txt');
  reset(input);
  rewrite(output);

{Начало проверки прокси}

begin
// грузим фаил с проксями
  ProxyList:=tstringlist.Create;
  ProxyList.LoadFromFile('Proxy.txt');
  params:=TStringList.Create;
  Presponseres:=TStringList.Create;

// получаем проксю делим на ip и port ИКАК СЮДА ВЕРНУТЬСЯ
  Proxy:=ProxyList.Strings[0]; 
  ip:=getip(Proxy);
  por:=getport(Proxy);
  port:=StrToInt(por);

// тут и так понятно
  IdHTTP1.ProxyParams.ProxyServer:=ip;
  IdHTTP1.ProxyParams.ProxyPort:=port;

// начинаем проверку
    try
    IdHTTP1.Get('http://ya.ru');
    except
// вот тут если прокся мертвая  удаляем эту строку , и как вернуться выше
    end;

end;
{конец проверки прокси}

var
intA:integer;
...
{Начало проверки прокси}

begin
// грузим фаил с проксями
  ProxyList:=tstringlist.Create;
  ProxyList.LoadFromFile('Proxy.txt');
  params:=TStringList.Create;
  Presponseres:=TStringList.Create;

// получаем проксю делим на ip и port ИКАК СЮДА ВЕРНУТЬСЯ
  for intA:=0 to ProxyList.Count - 1 do begin
  Proxy:=ProxyList.Strings[intA]; 
  ip:=getip(Proxy);
  por:=getport(Proxy);
  port:=StrToInt(por);

// тут и так понятно
  IdHTTP1.ProxyParams.ProxyServer:=ip;
  IdHTTP1.ProxyParams.ProxyPort:=port;

// начинаем проверку
    try
    IdHTTP1.Get('http://ya.ru');
    except
// вот тут если прокся мертвая  удаляем эту строку , и как вернуться выше
    end;
    end;
end;
{конец проверки прокси}