Program z6; Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin g:=a[i]; g[1]:= (Upcase(g[1])); s_2:= s_2 + g + ' '; i:= i + 1; g:=''; end; writeln(s_2);End.
Program zadanie;
var a,b:real;
beginreadln(a,b);
if (a > b) then b := sqr(a)else if(a < b) then b:=sqrt(a);
writeln(b);
readln;
<span>end.</span>
n=int(input())
min_na20=30000
for i in range(n):
x=int(input())
if x<min_na20 and x%20==0:
min_na20=x
print(min_na20)