В массиве найти произведение кратных трем элементов. - Pascal ABC

const
    MIN = 1;
    MAX = 75;
var
    ar: Array[MIN..MAX] Of ShortInt;
    i: MIN..MAX;
    Result: Extended; //Double | Real
begin
    Randomize;
    Result := 1; Write('Array:');
    for i := MIN to MAX do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
        if (ar[i] mod 3 = 0)
        then
            Result := Result * ar[i];
    end;
    WriteLn; WriteLn('Answer: ', Result:0:0);
end.