美元汇率pascal程序

若今天的汇率比明天的汇率高，那么就换钱。

• var
  m:real;
  a:array[0..100]of longint;
  n,i:longint;
  begin
      readln(n);
      for i:=1 to n do
      readln(a[i]);
      m:=100;
      for i:=1 to n-1 do
      if a[i]>a[i+1] then m:=m*a[i]/a[i+1];
      write(m:0:2);
  end.