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

Возможно нерационально но, пусть. Сначала вы вводите количество чисел, потом сами числа. Если число делится на 7 - то будет соответствующая строка, после чего будет предложено ввести новое число; Если нет, то будет предложено ввести новое число.

program cv;

var

a, i, chislo:integer;

begin

writeln ('Введите количество чисел') ;

readln (a) ;

for i:=1 to a do

begin

writeln ('Введите число') ;

readln (chislo) ;

if (chislo mod 7=0) then writeln ('Число ', chislo,' делится на 7.')

end;

end.