СРОЧНО ИНФОРМАТИКА ПАСКАЛЬ!!

Ответ:

var n,a,i,min:integer;

begin

readln(n);

min:=1000;

for i:=1 to n do

begin

readln(a);

if (a mod 20=0)and(a<min) then min:=a;

end;

writeln(min);

end.

Объяснение:

===== PascalABC.NET =====

begin

 ReadSeqInteger(ReadInteger).Where(p -> p mod 20 = 0).Min.Print

end.