Объяснение:
program prog;
var
x,i,n,tmp:integer;
arr:array [1..1000] of integer;
begin
Writeln('Enter n: ');
readln(n);
x:=30000;
Writeln('Enter numbers: ');
for i:=1 to n do readln(arr[i]);
for i:=1 to n do
begin
tmp:=arr[i] mod 6;
if (tmp=0) and (arr[i]<x) then x:=arr[i];
end;
writeln(x);
end.
