viết phương trình nhập vào 3 số thực a,b,c kiểm tra , in ra xem có phải 3 cạnh của tam giác cân hay không

program tg;

uses crt;

var a,b,c: real;

begin

clrscr;

write('Nhap do dai 3 canh cua tam giac: ');

readln(a,b,c); 

if(a=b) or (b=c) or (a=c) then write('La do dai 3 canh cua tam giac can');

      else write('Khong phai la do dai 3 canh cua tam giac can');

readln;

end.

program ct;

uses crt;

var a,b,c:real;

begin clrscr;

   write('Nhap do dai ba canh: '); readln(a,b,c);

   if (a=b) or (b=c) or (c=d) 

          then writeln('Day la do dai ba canh cua tam giac can')

          else writeln('Day khong la do dai ba canh cua tam giac can');

readln;

end.

Học tốt!