uses crt;
var i,t,n,k:longint;
    s:string;
    p:array[0..1001]of boolean;
procedure Sieve();
var i,j:word;
begin
    for i:=2 to trunc(sqrt(n)) do
        if not(p[i]) then
           for j:=i to n div i do
              p[i*j]:=true;
end;
begin
    clrscr;
    readln(n,k);
    Sieve();
    str(n,s);
    writeln('Co ',length(s),' chu so');
    writeln('Cac so nguyen to nho hon ',n,':');
    for i:=2 to n-1 do
        if not p[i] then write(i,' ');
    writeln;
    t:=0;
    for i:=1 to length(s) do
        t:=t+ord(s[i])-48;
    writeln('Tong cac chu so: ',t);
    writeln('Chu so thu ',k,' cua ',n,' la ',s[k]);
readln;
end.

uses crt;
var n,k,c,v,s,d,i:longint;st:string;
function NT(a:longint):boolean;
var dem,j:longint;
        begin
         dem:=0;
         for j:=1 to a do if(a mod j=0)then inc(dem);
         NT:=dem=2;
        end;
begin
 clrscr;
  write('n=');readln(n);
  write('k=');readln(k);
  c:=n;
  v:=0;
  d:=0;
  while c<>0 do
        begin
         v:=c mod 10;
         c:=c div 10;
         s:=s+v;
         inc(d);
        end;
  writeln('so chu so cua n la:',d);
  write('cac so nguyen to be hon n la:');
  for i:=1 to n do if(NT(i))then write(i,' ');
  writeln;
  writeln('tong cac chu so cua n la:',s);
  STR(n,st);
  writeln('so thu',k,'cua n la:',st[k]);
 readln;
end.