Вопрос Как наисать программу, где вводится массив.

[denis123]

Программа должна находить и ввыводить на экран все числа, которые кратные цифре семь

 

[vangog]

For i:=1 to 10 do readln(arr);

 

[ferum324]

if a mod 7 = 0 then writeln(a)