Bantu temanmu belajar dengan menambahkan soal di Kujawab. Klik disini..

Olimpiade Sains Kota (OSK) 2013 - Komputer , Nomor 42

42
const
  M=100;
var
  x,i,n,h:longint;
  A:array[1..M] of boolean;
  B:array[1..M] of longint;
begin
  for i:=1 to M do
    A[i]:=true;
  n:=0;
  for i:=2 to M do
  begin
    if A[i] then
    begin
      n:=n+1;
      B[n]:=i;
      h:=i;
      while h<M do
      begin
        h:=h+i;
        if h<=M then A[h]:=false;
      end;
    end;
  end;
  readln(x);
  writeln(B[x]);
end. 

Berapakah hasil program di atas apabila x = 10?
A. 13
B. 17
C. 20
D. 29
E. Runtime Error