Cod sursa(job #254448)

Utilizator Teodor94Teodor Plop Teodor94 Data 7 februarie 2009 12:12:13
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 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);
  for i:=1 to n do
    for j:=1 to m do
      read(f,a[i,j]);
  writeln(g,n+m-1);
  close(f); close(g);
end.