Нужно написать программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 7. программа должна вывести одно число, кратное 7.

Мне кажется тебе с таким заданием надо идти на сайт фриланса и искать там программиста

Var
i, t, max, n: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(t);
if (t mod 7 = 0) and (t > max) then
max := t;
end;
writeln(max);
end.