Cod sursa(job #254385)

Utilizator radupoenaruPoenaru Radu Constantin radupoenaru Data 7 februarie 2009 11:48:02
Problema Kdrum Scor 0
Compilator fpc Status done
Runda Stelele Informaticii 2009, clasele 9-10, ziua 2 Marime 0.32 kb
Raporteaza aceasta sursa 
var n,m,k,xi,yi,xf,yf,x,y,i,j:longint;
    f:text;
    a:array[1..50,1..50] of longint;
begin
assign(f,'kdrum.in');reset(f);
read(f,n,m,k);
read(f,xi,yi,xf,yf);
for i:=1 to n do
    for j:=1 to m do read(f,a[i,j]);
close(f);
assign(f,'kdrum.out');
x:=abs(xi-xf)+1;
y:=abs(yi-yf)+1;
writeln(f,x+y);
close(f);
end.