BƯỚC 4. NẾU A = B VÀ B = C, THÔNG BÁO A, B VÀ C LÀ BA CẠNH CỦA MỘTT...

5. Bước 4. Nếu A = B và B = C, thông báo A, B và C là ba cạnh của mộttam giác đều; ngược lại, nếu A = B hoặc B = C hoặc A = C, thông báoA, B và C là ba cạnh của một tam giác cân.Bước 5. Kết thúc thuật toán. Chương trình Pascal:program Sap_xep;uses crt;var A, B, C, X: integer;beginclrscr;write('Nhap so A: '); readln(A);write('Nhap so B: '); readln(B);write('Nhap so C: '); readln(C);if (A+B<C) or (B+C<A) or (A+C<B) then writeln('Day khong la ba canh cua mottam giac') else if (A*A=B*B+C*C) or (B*B=A*A+C*C) or(C*C=A*A+B*B) then writeln('Day la ba canh cua tam giacvuong') else if (A=B) and(B=C) and (A=C)deu') else if (A=B) or (B=C) or (C=A)can') else writeln('Day chi la ba canh cua tamgiac thuong');readln;end.