uses crt;
var i,k,n,d,t:integer;
a:array[1..100] of integer;

function kt(n:integer):boolean;
var s,i,s1,s2:integer;
begin
 if n<10 then exit(false);
s:=0;
 for i:=1 to n do
  if n mod i=0 then s:=s+1;
 if s=2 then kt:=true else exit(false);
 s1:=n mod 10;
 n:=n div 10;
 while n<>0 do
 begin
  s2:=n mod 10;
  if s1=s2 then exit(false)
  else s1:=s2;
  n:= n div 10;
 end;
end;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
for i:=1 to n do
 if kt(a[i]) then d:=d+1;
writeln('so luong cac so nguto don dieu co trong day la:',d);
write('nhap so K:');readln(k);
t:=1;
for i:=1 to k do
 t:=t*10;
for i:=t-1 downto 1 do
 if kt(i) then begin write('so ngto don dieu lon nhat co ',k,' cho so la:',i);break;end;
readln;
end.