[HMM0071A]$B!|F~NO$,?tCM!"@0?t$G$"$k$+$N%A%'%C%/J}K!(B

$B"+A0$X(B $B $B5!G=JL#Q!u#A(B $B $B=(4]%(%G%#%?#Q!u#A=8%H%C%W(B

[HMM0071A]

$B!|F~NO$,?tCM!"@0?t$G$"$k$+$N%A%'%C%/J}K!(B

$B4JC1$J%K%e!<%a%j%C%/%A%'%C%/K!!JF~NO$,?tCM!"@0?t$G$"$k$+$N%A%'%C%/!K$O$"$j$^$;$s$+(B ?

$BF~NO$,%K%e!<%a%j%C%/(B($B?tCM!"@0?t(B)$B$G$"$k$+$N%A%'%C%/$O87L)$K9T$&$HJ#;($J%m%8%C%/$K$J$j$,$A$G$9!#$3$3$G$O4JC1$J%A%'%C%/J}K!$r<($7$^$9!#(B

// ($BNc(B) ---------------------
$wk1 = input("$B?tCM$rF~NO$7$F$/$@$5$$(B!","");
if( $wk1 == str(val($wk1)) ){
message "$B?tCM(B : " + $wk1;
} else {
message "$B?tCM$G$9$+(B ! \n" + $wk1;
}
endmacro;
// $B!J$3$3$^$G!K(B-----------------------------------------------

$BF~NOJ8;zNs$r!"(Bval $B4X?t$G?tCM$K$7$F!"

$B"+A0$X(B $B $B5!G=JL#Q!u#A(B $B $B=(4]%(%G%#%?#Q!u#A=8%H%C%W(B