Использовать mod и div программу, которая запрашивает у пользователя 10 чисел и выводит последнее из них (последнее в порядке ввода пользователем), кратное 7. не пользуйте, : const, count.

Var a,b,i:integer;
Begin
For i:= 1 to 10 do
begin
WriteLn('Введите ', i,' число');
Readln(a);
if( a mod 7 = 0) and (a<>0)then b:= a;
end;
Writeln(b);
end