Create an array of 12 Random numbers with values from -23 to 23 Carry out it to calculate

Create an array of 12 Random numbers with values from -23 to 23 Carry out it to calculate the number and Sum of numbers that are multiples of 5.

var i, s: integer;
n: real;
d: array [1..12] of integer;
begin
for i: = 1 to 12 do
begin
d [i]: = random (47) -23;
write (d [i], ”);
if d [i] mod 5 = 0 then
begin
s: = s + 1;
n: = n + d [i];
end;
end;
writeln (‘Number of numbers:’, s, ‘. Sum of numbers:’, n, ‘.’)
end.