Cod sursa(job #75012)
| Utilizator |  FMI - Dan Moldovan MDan |
Data | 30 iulie 2007 13:21:33 |
|---|---|---|---|
| Problema | Flux | Scor | 12 |
| Compilator | fpc | Status | done |
| Runda | Summer Challenge 2007, Runda 1 | Marime | 0.27 kb |
var f,g:text;
n,m,i,a,b,c,s:integer;
begin
assign (f,'flux.in');
assign (g,'flux.out');
reset (f);
rewrite (g);
readln (f,n);
readln (f,m);
s:=0;
for i:=1 to m do
begin
readln (f,a,b,c);
if b=n
then
s:=s+c;
end;
writeln (g,s);
close(f);
close(g);
end.