program TinhTong10SoNguyenTo;

var
  count, number, sum: integer;
  isPrime: boolean;

function CheckPrime(num: integer): boolean;
var
  i: integer;
begin
  if num < 2 then
    CheckPrime := false
  else
  begin
    for i := 2 to round(sqrt(num)) do
    begin
      if num mod i = 0 then
      begin
        CheckPrime := false;
        exit;
      end;
    end;
    CheckPrime := true;
  end;
end;

begin
  count := 0;
  number := 2;
  sum := 0;

  while count < 10 do
  begin
    if CheckPrime(number) then
    begin
      sum := sum + number;
      count := count + 1;
    end;
    number := number + 1;
  end;

  writeln('Tong cua 10 so nguyen to dau tien la: ', sum);
  readln;
end.