Найти сумму(s) и произведение (p) всех чисел от 1 до 100 кратных 3

Program asd;
USES crt;
Const n=5;
var A:array[1..n] of integer;
var p,s:real;  i:integer;
BEGIN
Clrscr;
For i:=1 to n do
 begin 
A[i]:=Random(100)+1; 
 Write(A[i]:4); 
end; 
P:=1; 
 For i:=1 to n do 
 begin 
 If A[i] mod 3=0 then   
begin   
S:=S+A[i]; 
P:=P*A[i]; 
end; 
 end; 
 Writeln;
  Writeln('Сумма матрицы: ',s,' Произведение матрицы: ',p);
END.