Напишите на паскале. Задание: Найти максимальный из элементов массива A[1 .. N],
кратных пяти.

Const
  n = 5;
 
var
  arr: array [1..n] of integer;
  i, max: integer;

begin
  for i := 1 to n do
  begin
    write(A[, i, ] = );
    readln(arr[i]);
  end;
 
  max := 1;
  for i := 1 to n do
    if (max lt; arr[i]) and (arr[i] mod 5 = 0) then
      max := arr[i];
 
  if max = 1 then
    writeln(No)
  else
    writeln(max);
end.