Cod sursa(job #127323)

Utilizator philip_dugalleHadczy-Pop Filip philip_dugalle Data 23 ianuarie 2008 19:03:27
Problema Inundatii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
var f,g:text;
    sx,sy,sz,x,y,z:longint;

begin
 assign(f,'inundatii.in');
 assign(g,'inundatii.out');
 reset(f);
 rewrite(g);
 readln(f,n);
 for i:=1 to n do begin
  readln(x,y,z);
  sx:=sx+x;
  sy:=sy+y;
  sz:=sz+z;
 end;

 close(f);
 close(g);
end.