一维数组2

program OneDimensionalArray2;
const Num = 40;
var i, n : integer;
    a, b : array[1 .. Num-1] of integer;
    m : array[1 .. Num-1] of real;
begin
     readln(n);
     for i := 1 to n do
         readln(a[i], b[i]);
     for i := 1 to n do
     begin
          m[i] := a[i]/b[i];
          write(m[i]:0:2, ' ');
     end;
     readln;
end.