Program bai_tap;
Uses crt;
var a,b,c: real;
Begin
clrscr;
Write ('nhap do dai canh a =') ; Readln(a);
Write('nhap do dai canh b=') ; Readln(b);
Write('nhap do dai canh c=') ; Readln(c);
If (a=b) and (b=c) and (a=c) then writeln ('day la tam giac can');
Else writeln (' day khong phai la tam giac can');
Readln;
End.
Chúc bạn hc tốt =))