program sushu;
var
i,n,s:integer;
begin
readln(n);
for i:= 2 to n-1 do
begin
if n mod i=0 then
s:=s+1;
end;
if s=0 then writeln(n,'shisushu!') else writeln(n,bushisushu!);
readln;
end.
我是初学者，只会用PASCAL语言，你应该看得懂吧
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024