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

помогите мне

Возможно нерационально но, пусть. Сначала вы вводите количество чисел, потом сами числа. Если число делится на 7 - то будет соответствующая строка, после чего будет предложено ввести новое число; Если нет, то будет предложено ввести новое число.program cv;vara,i,chislo:integer;beginwriteln ('Введите количество чисел');readln (a);for i:=1 to a dobeginwriteln ('Введите число');readln (chislo);if (chislo mod 7=0) then writeln ('Число ',chislo,' делится на 7.')end;end.