Write a Pascal program that takes in an array of N random integers ranging from 10

Write a Pascal program that takes in an array of N random integers ranging from 10 to 99 and displays elements that are multiples of K.

program zz1;
const n = 20; // set the number of elements in the array
var i, s: integer; // set variables of integer type
m: array [1..n] of integer;
begin
write (‘enter the given number’);
read (s);
for i: = 1 to n do // get n random numbers and write them into an array
m [i]: = random (90) + 10;
for i: = 1 to n do // display the resulting array on the screen
write (m [i], ”);
writeln; // go to a new line to display the response
for i: = 1 to n do
if m [i] mod s = 0 then write (”, m [i]); // display the answer
end.