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.