Bn xem hình ạ!

`1.`

Program MEOVAOCHUOT;

        Var a, b, c, KC_AC, KC_BC : Int64;

Begin

        Read(a, b, c);          //Abs() là hàm lấy giá trị tuyệt đối.

        KC_AC := Abs(a - c);    // Khoảng cách mèo A và chuột C

        KC_BC := Abs(b - c);    // Khoảng cách mèo B và chuột C

        If (KC_AC < KC_BC) Then Write('Cat A')

        Else If (KC_AC > KC_BC) Then Write('Cat B')

        Else Write('Mouse_C');       // KC_AC = KC_BC

    End.

`2.`

Program PYTAGO;

        Var a, b, c, aa, bb, cc : Int64;

Begin

        Read(a, b, c);    //Sqr() là hàm lấy bình phương

        aa := Sqr(a);

        bb := Sqr(b);

        cc := Sqr(c);

        If (aa = bb + cc) or (bb = aa + cc) or (cc = aa + bb) Then

                Write('ba so da nhap la bo so Pi-ta-go')

        Else    Write('Ba so da nhap khong la bo so Pi-ta-go');

    End.