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

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

vari, t, max, n: integer;beginreadln(n);max := 0;for i := 1 to n dobeginreadln(t);if (t mod 7 = 0) and (t > max) thenmax := t;end;writeln(max);end.