Program BTH;

Uses Crt;

var a,b,c:longint;
begin

clrscr;

Write('Nhap canh a: ');readln(a);

write('Nhap canh b:');readln(b);

write('Nhap canh c: ');readln(c);

if (a=b) or (a=c) or (b=c) then writeln('Day la 3 canh cua tam giac can ')

else writeln(' khong phai 3 canh cua tam giac can ');

readln;

end.

program hotboy;

uses crt;

var a,b,c : integer;

begin

clrscr;

write('nhap do dai canh thu nhat cua tam giac') ; readln(a);

write('nhap do dai canh thu hai cua tam giac') ; readln(b);

write('nhap do dai canh thu ba cua tam giac') ; readln(c);

if (a=b) or (c=b) or (a=c) then write('do la tam giac can')

else write('do khong phai tam giac can');

readln

end.