Viết ct = ngôn ngữ lập trình pascal. Thực hiện nhập vào 3 cạnh của 1 tam giác. Tưng ứng vs 3 biến a, b, c Kiểm tra và xuất thông báo a, b, c có phải là 3 cạnh của tam giác cân hay k? Nếu k phải thì thông báo phải 3 cạnh của tam giác Vd: nhập cạnh a=6 b=6 c=8 là 3 cạnh của tam giác cân

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.