Задача на матрицы

[Witaliy]

Случайное раскидывание фишек.

а для чего, это же в задаче дано...

[Min]

var inp,outp:text;
    N,K,i,x0,y0,x,y:integer;
    L:longint;
begin
 assign(inp,'input.txt');
 reset(inp);
 assign(outp,'output.txt');
 rewrite(outp);
 readln(inp,N,K);
 x0:=1;
 y0:=1;
 l:=0;
 for i:=1 to K do
  begin
   readln(inp,x,y);
   inc(L,abs(x-x0)+abs(y-y0));
   x0:=x;
   y0:=y;
  end;
 writeln(outp,l);
 close(outp);
end.

[Witaliy]

да, всё роботает, спасибо! ноесли можно... хоть переменные поясните для чего котра... ато не могу розобраться....

[Witaliy]

abs єто что такое?

[Witaliy]

в принцыпе всё понятно, кроме этого рядка:

inc(L,abs(x-x0)+abs(y-y0));

Поясните, очень прошу....

[Witaliy]

ааа, всё, розобрался, всем огромное спасибо!