program KiemTraTamGiac;

var
  canh1, canh2, canh3: integer;
  dienTich: real;
  laTamGiac: boolean;

begin
  // Nhập ba số nguyên dương từ bàn phím
  writeln('Nhap ba so nguyen duong:');
  readln(canh1, canh2, canh3);

  // Kiểm tra điều kiện tồn tại tam giác
  laTamGiac := (canh1 + canh2 > canh3) and (canh1 + canh3 > canh2) and (canh2 + canh3 > canh1);

  // In ra kết quả
  if laTamGiac then
  begin
    writeln('Ba so vua nhap la do dai ba canh cua mot tam giac.');

    // Tính diện tích tam giác bằng công thức Heron
    dienTich := sqrt((canh1 + canh2 + canh3) * (canh1 + canh2 - canh3) * (canh1 - canh2 + canh3) * (-canh1 + canh2 + canh3)) / 4;
    writeln('Dien tich cua tam giac la: ', dienTich:0:2);

    // Kiểm tra loại tam giác
    if (sqr(canh1) + sqr(canh2) = sqr(canh3)) or (sqr(canh1) + sqr(canh3) = sqr(canh2)) or (sqr(canh2) + sqr(canh3) = sqr(canh1)) then
      writeln('Day la mot tam giac vuong.')
    else if (sqr(canh1) + sqr(canh2) < sqr(canh3)) or (sqr(canh1) + sqr(canh3) < sqr(canh2)) or (sqr(canh2) + sqr(canh3) < sqr(canh1)) then
      writeln('Day la mot tam giac tu.')
    else
      writeln('Day la mot tam giac nhon.');
  end
  else
    writeln('Ba so vua nhap khong la do dai ba canh cua mot tam giac.');
end.
 

program Triangle;

var
  a, b, c: integer;
  s, p: real;

function IsTriangle(a, b, c: integer): boolean;
begin
  if (a + b > c) and (a + c > b) and (b + c > a) then
    IsTriangle := true
  else
    IsTriangle := false;
end;

function Area(a, b, c: integer): real;
var
  p: real;
begin
  p := (a + b + c) / 2;
  Area := sqrt(p * (p - a) * (p - b) * (p - c));
end;

procedure TriangleType(a, b, c: integer);
begin
  if (a * a + b * b = c * c) or (a * a + c * c = b * b) or (b * b + c * c = a * a) then
    writeln('Day la mot tam giac vuong.')
  else if (a * a + b * b < c * c) or (a * a + c * c < b * b) or (b * b + c * c < a * a) then
    writeln('Day la mot tam giac tu.')
  else
    writeln('Day la mot tam giac nhon.');
end;

begin
  writeln('Nhap ba so nguyen duong:');
  readln(a, b, c);
  
  if IsTriangle(a, b, c) then
  begin
    writeln('Diện tích của tam giác là: ', Area(a, b, c):0:2);
    TriangleType(a, b, c);
  end
  else
    writeln(a, '; ', b, '; ', c, ' khong la 3 canh cua tam giac');
end.