uses crt;
var a,b,c:real;
    ketqua:string;
function Nhap(ghichu:string):real;
var ketqua:real;
begin
    write(ghichu);
    readln(ketqua);
    Nhap:=ketqua;
end;
function Tamgiac(a,b,c:real):boolean;
var ketqua:boolean;
begin
    ketqua:=false;
    if (a+b>c) and (b+c>a) and (c+a>b) then
        ketqua:=true;
    Tamgiac:=ketqua;
end;
function TamgiacDeu(a,b,c:real):boolean;
var ketqua:boolean;
begin
    ketqua:=false;
    if (a=b) and (b=c) then
        ketqua:=true;
    TamgiacDeu:=ketqua;
end;
function TamgiacCan(a,b,c:real):boolean;
var ketqua:boolean;
begin
    ketqua:=false;
    if (a=b) or (b=c) or (c=a) then
        ketqua:=true;
    TamgiacCan:=ketqua;
end;
function TamgiacVuong(a,b,c:real):boolean;
var ketqua:boolean;
begin
    ketqua:=false;
    if (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(c)+sqr(a)=sqr(b)) then
        ketqua:=true;
    TamgiacVuong:=ketqua;
end;
function DangTamGiac(a,b,c:real):string;
var ketqua:string;
begin
    if Tamgiac(a,b,c) then
        begin
          if TamgiacDeu(a,b,c) then
              ketqua:='Day la tam giac deu!'
          else {Khong deu}
              begin
                  if TamgiacCan(a,b,c) then
                    begin
                        if TamgiacVuong(a,b,c) then
                            ketqua:='Day la tam giac Vuong Can!'
                        else {Khong vuong}
                            ketqua:='Day la tam giac Can!';
                    end
                  else {Khong can}
                      begin
                        if TamgiacVuong(a,b,c) then
                            ketqua:='Day la tam giac Vuong!'
                        else {Khong vuong}
                            ketqua:='Day la tam giac Thuong!';
                      end;
              end;
        end
    else
        ketqua:='Ba so nay khong phai la ba canh cua tam giac!';
    DangTamGiac:=ketqua;
end;
procedure XuLy;
begin
    repeat
        clrscr;
        writeln('Chuong trinh kiem tra dang cua tam giac!');
        a:=Nhap('Nhap vao a: ');
        b:=Nhap('Nhap vao b: ');
        c:=Nhap('Nhap vao c: ');
        ketqua:=DangTamGiac(a,b,c);
        writeln(ketqua);
        writeln('Nhan esc de thoat!');
    until(ord(readkey)=27);
end;
begin
    XuLy;
end.

begin
    XuLy;
end.

procedure XuLy;
begin
    repeat
        clrscr;
        writeln('Chuong trinh kiem tra dang cua tam giac!');
        a:=Nhap('Nhap vao a: ');
        b:=Nhap('Nhap vao b: ');
        c:=Nhap('Nhap vao c: ');
        ketqua:=DangTamGiac(a,b,c);
        writeln(ketqua);
        writeln('Nhan esc de thoat!');
    until(ord(readkey)=27);
end;

function DangTamGiac(a,b,c:real):string;
var ketqua:string;
begin
    if Tamgiac(a,b,c) then
        begin
          if TamgiacDeu(a,b,c) then
              ketqua:='Day la tam giac deu!'
          else {Khong deu}
              begin
                  if TamgiacCan(a,b,c) then
                    begin
                        if TamgiacVuong(a,b,c) then
                            ketqua:='Day la tam giac Vuong Can!'
                        else {Khong vuong}
                            ketqua:='Day la tam giac Can!';
                    end
                  else {Khong can}
                      begin
                        if TamgiacVuong(a,b,c) then
                            ketqua:='Day la tam giac Vuong!'
                        else {Khong vuong}
                            ketqua:='Day la tam giac Thuong!';
                      end;
              end;
        end
    else
        ketqua:='Ba so nay khong phai la ba canh cua tam giac!';
    DangTamGiac:=ketqua;
end;

uses Crt;
Var a, b, c, p, s : Real;
Begin
clrscr;
repeat
Write( ' Nhap ba so a, b, c : ' );
Readln(a, b, c);
until      (a>0) and (b>0) and (c>0);

If (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
Begin
Writeln( ' Ba canh tren tao thanh mot tam giac ');
if (a=b) and (b=c) then write( ' Day la tam giac deu. ' );
if (a=b) or (a=c) or (b=c) then write(' Day la tam giac can ' );
If (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then
  if (a=b) or (b=c) or (a=c) then write('Tam giac nay vuong can')
  else write('Day la tam giac vuong');
End
Else
Write( ' Ba so nay khong tao thanh duoc mot tam giac. ' );
Readln;
End.

 if (a=b) or (b=c) or (a=c) then
      if (a=b) and (b=c) then write('Tam giac deu')
      else write('Tam giac can');