var
i, min: integer;
a: array[1..20] of integer;
begin
min:= 1000000000;
for i:= 1 to 20 do
readln(a[i]);
if (a[i] < min) and (a[i] mod 7 <> 0) then
min:= a[i];
end;
writeln(min);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
i, min: integer;
a: array[1..20] of integer;
begin
min:= 1000000000;
for i:= 1 to 20 do
begin
readln(a[i]);
if (a[i] < min) and (a[i] mod 7 <> 0) then
min:= a[i];
end;
writeln(min);
end.