Cod sursa(job #109519)

Utilizator MDanFMI - Dan Moldovan MDan Data 25 noiembrie 2007 11:34:55
Problema Tunelul groazei Scor 0
Compilator fpc Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.27 kb
Raporteaza aceasta sursa 
var f,g:text;
    aux,aux1,aux2,i,j:longint;
    rez:real;
begin
assign (f,'tunel.in');
assign (g,'tunel.out');
reset(f);
rewrite (g);
readln (f,aux,i);
for aux:=1 to i do
begin
readln (f,aux1,aux2,j);
rez:=rez+j;
end;
writeln (g,rez*i);
close(f);
close(g);
end.