PROGRAM CalculateRemainder;
 
VAR
  A: Integer; // 割られる数
  B: Integer; // 割る数
  remainder: Integer; // 余り
 
BEGIN
  // 1. 2つの整数 A と B を入力
  Write('割られる数 (A) を入力してください (整数): ');
  ReadLn(A);
 
  Write('割る数 (B) を入力してください (整数, 0以外): ');
  ReadLn(B);
 
  // 2. 割る数 B が0でないことを確認 (重要なエラー処理)
  IF B = 0 THEN
  BEGIN
    WriteLn('エラー: 0で割ることはできません。');
  END
  ELSE
  BEGIN
    // 3. MOD 演算子を使って余りを計算
    remainder := A MOD B;
 
    // 4. 結果を表示
    WriteLn(''); // 空行
    WriteLn(A, ' を ', B, ' で割った余りは ', remainder, ' です。');
  END;
 
  ReadLn; // プログラムがすぐに閉じないように、何かキー入力があるまで待機
END.

UFJPR1JBTSBDYWxjdWxhdGVSZW1haW5kZXI7CgpWQVIKICBBOiBJbnRlZ2VyOyAvLyDlibLjgonjgozjgovmlbAKICBCOiBJbnRlZ2VyOyAvLyDlibLjgovmlbAKICByZW1haW5kZXI6IEludGVnZXI7IC8vIOS9meOCigoKQkVHSU4KICAvLyAxLiAy44Gk44Gu5pW05pWwIEEg44GoIEIg44KS5YWl5YqbCiAgV3JpdGUoJ+WJsuOCieOCjOOCi+aVsCAoQSkg44KS5YWl5Yqb44GX44Gm44GP44Gg44GV44GEICjmlbTmlbApOiAnKTsKICBSZWFkTG4oQSk7CgogIFdyaXRlKCflibLjgovmlbAgKEIpIOOCkuWFpeWKm+OBl+OBpuOBj+OBoOOBleOBhCAo5pW05pWwLCAw5Lul5aSWKTogJyk7CiAgUmVhZExuKEIpOwoKICAvLyAyLiDlibLjgovmlbAgQiDjgYww44Gn44Gq44GE44GT44Go44KS56K66KqNICjph43opoHjgarjgqjjg6njg7zlh6bnkIYpCiAgSUYgQiA9IDAgVEhFTgogIEJFR0lOCiAgICBXcml0ZUxuKCfjgqjjg6njg7w6IDDjgaflibLjgovjgZPjgajjga/jgafjgY3jgb7jgZvjgpPjgIInKTsKICBFTkQKICBFTFNFCiAgQkVHSU4KICAgIC8vIDMuIE1PRCDmvJTnrpflrZDjgpLkvb/jgaPjgabkvZnjgorjgpLoqIjnrpcKICAgIHJlbWFpbmRlciA6PSBBIE1PRCBCOwoKICAgIC8vIDQuIOe1kOaenOOCkuihqOekugogICAgV3JpdGVMbignJyk7IC8vIOepuuihjAogICAgV3JpdGVMbihBLCAnIOOCkiAnLCBCLCAnIOOBp+WJsuOBo+OBn+S9meOCiuOBryAnLCByZW1haW5kZXIsICcg44Gn44GZ44CCJyk7CiAgRU5EOwoKICBSZWFkTG47IC8vIOODl+ODreOCsOODqeODoOOBjOOBmeOBkOOBq+mWieOBmOOBquOBhOOCiOOBhuOBq+OAgeS9leOBi+OCreODvOWFpeWKm+OBjOOBguOCi+OBvuOBp+W+heapnwpFTkQu

MTAzCjc=

103
7