program Junretsu1; {$APPTYPE CONSOLE} uses SysUtils; var N,K : Integer; P,C : Integer; I : Integer; begin WriteLn('‡—ñ n‚ok ‚Æ‘g‚݇‚킹 n‚bk'); repeat WriteLn; Write('‘S‘̂̌” (0 ‚ð“ü‚ê‚é‚ÆI—¹) [‚Ž] ? '); ReadLn(N); Write('Žæ‚èo‚·ŒÂ” [‚‹] ? '); ReadLn(K); C := 1; for I := 1 to K do C := C*(N+1-I) div I; WriteLn(N, ' C ', K, ' = ',C); P := 1; for I := 1 to K do P := P*(N+1-I); WriteLn(N, ' P ', K, ' = ',P); until N = 0; end.