Cod sursa(job #127323)
Utilizator | 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.