var a:array[0..50] of longint;
i,j,b:longint;
Begin
randomize;
j:=18;
for i:=1 to j do
begin
b:=random(18)+1;
a[i]:=b+b;
end;
writeln(a[i]);
End.
