Составить программу. дан массив,состоящий из 5 элементов а( элемента меньше 10).найти произведение элементов данного массива

Var
  m : array[1..5] of Byte;
  i : Byte;
  R : Longint;
Begin
  R:=1;
  For i:=1 to 5 do
  Begin
    Readln(m[i]);
   R:=R*m[i];
  end;
  Writeln('Произведение = ',R);
end.