program DivideByFive;
vararr: array[1..5] of Integer;i: Integer;
beginWriteLn('Enter 5 elements of the array: ');
// Input elements of the arrayfor i := 1 to 5 dobeginReadLn(arr[i]);end;
WriteLn('Elements that are divisible by 5: ');
// Check and output elements that are divisible by 5for i := 1 to 5 dobeginif (arr[i] mod 5 = 0) thenbeginWriteLn(arr[i]);end;end;end.
program DivideByFive;
var
arr: array[1..5] of Integer;
i: Integer;
begin
WriteLn('Enter 5 elements of the array: ');
// Input elements of the array
for i := 1 to 5 do
begin
ReadLn(arr[i]);
end;
WriteLn('Elements that are divisible by 5: ');
// Check and output elements that are divisible by 5
for i := 1 to 5 do
begin
if (arr[i] mod 5 = 0) then
begin
WriteLn(arr[i]);
end;
end;
end.