Tinh tich

program cau4;
uses crt;
var i,n:integer;
    s,t:real;

begin
 clrscr;s:=1;
 write('Nhap n= ');readln(n);
 for i:=1 to n do
  begin
   write('a[',i,']= ');readln(t);
   s:=s*t;
  end;
  write('Tich cua day so da nhap la: ',s:5:2);
  readln;
end.