помогите с информатикой! заранее спасибо

Дано 10 чисел. Найти произведение чисел, которые больше 0. паскаль

Ответ:

var a:array [1..100] of integer;

var n,i,k :integer;

begin

k:=1;

for i:=1 to 10 do begin

read (a[i]);

if a[i]<10 then k:=a[i]*k;

end;

write(k);

end.