1)
var a:array of integer;
n,i,nr:integer;
begin
read(n);
setlength(a,n);
writeln;
for i:=0 to n-1 do begin
read(a[i]);
if (a[i]<=100) and (a[i]>=10) then inc(nr);
end;
writeln;
writeln(nr);
end.
2)
var i,n,x:integer;
begin
read(n);
writeln;
for i:=1 to n do
if (n mod i = 0) then inc(x);
if x=2 then writeln('DA')
else writeln('NU');
end.
3)
var s,min:string;
i:integer;
begin
read(s);
writeln;
min:=s[1];
for i:=1 to length(s) do
if s[i]<min then min:=s[i];
writeln(min);
end.