Произведение элементов массива [Паскаль]

[Анна22]

решите пожалуйсто!
Даны числа a1,a2,…as.Верно ли, что их произведение меньше 10000?

[alex_fcsm]

const s=10;
var mult:longint;
 a:array[1..s] of real;
 i:integer;

begin

mult:=1;
for i:=1 to s do
 begin
  read(a[i]);
  mult:=mult*a[i];
 end;

if mult<10000 then writeln('Correctly')
  else writeln('No');
end.

[Анна22]

Огромное спасибо!!!