uses crt;
type mang=array[1..100] of integer;
var i,n,c,k,t,max:integer;
a:mang;
function kt(n:integer):boolean;
var i:integer;
begin
 kt:=true;
 for i:=2 to n-1 do
  if n mod i=0 then kt:=false;
end;

function kt2(n:integer):boolean;
var k,i:integer;
a:mang;
begin
k:=0;
kt2:=true;
 while n<>0 do
 begin
  k:=k+1;
  a[k]:=n mod 10;
  n:=n div 10;
 end;
 if k=1 then kt2:=false
 else
 for i:=1 to k do
  if a[i]=a[i+1] then
  begin
   kt2:=false;
   break;
  end;
end;

begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
c:=0;
for i:=1 to n do
 if (kt(a[i]))and(kt2(a[i])) then inc(c);
writeln('a)',c);
repeat
 write('nhap so k:');
 readln(k);
until (k>=1) and(k<=10);
t:=1;
for i:=1 to k do
 t:=t*10;
 t:=t-1;
for i:=1 to t do
 if kt(i) and kt2(i) then max:=i;
write('b)',max);
readln;
end.