Bài 10:
Program NN;
Uses crt;
Var a,b,c: real;
Begin
        Clrscr;
        Write('Nhap do dai 3 canh: '); Readln(a,b,c);
        If (a+b>c) and (b+c>a) and (a+c>b) then

        Begin

               If (a=b) or (b=c) or (c=a) then Write('YES') else Write('NO');

        End
        Else Write('Khong phai tam giac');
        Readln
End.
Bài 11:
Program NN;
Uses crt;
Var a,b,c: real;
Begin
        Clrscr;
        Write('Nhap do dai 3 canh: '); Readln(a,b,c);
        If (a+b>c) and (b+c>a) and (a+c>b) then
        Begin
                If (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then
                Write('YES')
                Else Write('NO');
        End
        Else Write('Khong phai tam giac');
        Readln
End.

Bài 12:

Program NN;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a,b: '); Readln(a,b);
        Writeln('Tong = ',a+b);
        Writeln('Hieu = ',a-b);
        Writeln('Tich = ',a*b);
        Write('Thuong = ',a/b:0:2);
        Readln
End.

11.

program ctpt;

uses crt;

  var a, b, c: real;

begin

           clrscr;

           write('Nhap a = '); readln(a);

           write('Nhap b = '); readln(b);

           write('Nhap c = '); readln(c);

           if (a+b>c) or (a+c>b) or (b+c>a) then

           begin

                       if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then                           

                            write('Tam giac vuong') else

                                        write('Khong phai tam giac vuong');

             end 

             else 

                         write('Khong phai tam giac');

           readln

end.

12.

program ctpt;

uses crt;

  var a, b: integer;

begin

           clrscr;

           write('Nhap a = '); readln(a);

           write('Nhap b = '); readln(b);

           writeln('Tong = ', a+b);

           writeln('Hieu = ', a-b);

           writeln('Tich = ', a*b);

           writeln('Thuong = ', a/b);

           readln

end.

13. (??)