{ Bài 8: Số siêu nguyên tố là số nguyên tố mà khi bỏ chữ số ở bên phải của nó thì được số mới cũng là một số nguyên tố. Viết chương trình kiểm tra một số có phải là siêu nguyên tố hay không. }
program kt_so_sieu_ngto;
var a,x,n,i:longint;
kt:boolean;
begin
writeln;
write('Nhap so can kiem tra: ');readln(a);
x:=a;
kt:=true;
repeat
n:=0;
for i:=1 to a do if (a mod i = 0)then n:=n+1;
if n<>2 then kt:=false;
a:=a div 10;
until a=0;
if (kt=true) then writeln(x,' la so sieu nguyen to!')
else writeln(x,' khong phai so sieu nguyen to!');
readln
end.