Cod sursa(job #254483)

Utilizator Teodor94Teodor Plop Teodor94 Data 7 februarie 2009 12:22:59
Problema Kdrum Scor 0
Compilator fpc Status done
Runda Stelele Informaticii 2009, clasele 9-10, ziua 2 Marime 0.27 kb
var f,g:text;
    n,m,k,x1,y1,x2,y2,i,j:longint;
    a:array[0..100,0..100] of longint;
begin
  assign(f,'kdrum.in'); reset(f);
  assign(g,'kdrum.out'); rewrite(g);
  read(f,n,m,k);
  read(f,x1,y1,x2,y2);
  writeln(g,abs(x1-x2)+abs(y1-y2)+1);
  close(f); close(g);
end.