15 different integers are sequentially entered from the keyboard and placed in an array. Write a program that displays

15 different integers are sequentially entered from the keyboard and placed in an array. Write a program that displays on the screen the number of array elements that are multiples of 5 and the minimum among those that meet this condition.

var
min, i, x: integer; // declare variables of integer type.
arr: array [1..15] of integer; // declare an array.
Begin
writeln (‘Enter 15 integers to fill the array:’); // display the string to the screen.
for i: = 1 to 15 do // start of the cycle.
begin
readln (arr [i]); // fill in the array element.
if ((arr [i] mod 5 = 0)) then // if the element is a multiple of 5.
begin
if (x = 0) then min: = arr [i]; // the first element divisible by 5 is considered the minimum.
if (arr [i] <min) then min: = arr [i]; // compare the current element with the minimum.
x: = x + 1; // count the number of elements in multiples of 5.
end;
end;
writeln (‘The number of elements in the array, divisible by 5 is equal to:’, x, ‘, the minimum of them:’, min);
End.