Cod sursa(job #109941)
Utilizator | Data | 25 noiembrie 2007 12:58:32 | |
---|---|---|---|
Problema | Aliens | Scor | 10 |
Compilator | fpc | Status | done |
Runda | preONI 2008, Runda 1, Clasa a 10-a | Marime | 0.41 kb |
var a,b,cor:array[1..50] of real;
s:real;
f,g:text;
i,j,n:longint;
begin
assign(f,'aliens.in'); reset(f);
assign(g,'aliens.out'); rewrite(g);
readln(f,n);
for i := 1 to n do begin
readln(f,a[i],b[i]);
cor[i]:=a[i]/b[i];
end;
s:=1;
for i := 1 to n do
if cor[i]>0 then s:=s*cor[i];
writeln(g,s:0:0);
close(f);
close(g);
end.