16:T570, program TriangleType; {$mode objfpc}{$H+} uses SysUtils; { Function to check if sides form a valid triangle } function IsValidTriangle(a, b, c: Integer): Boolean; begin Result := (a + b > c) and (a + c > b) and (b + c > a); end; { Function to determine triangle type } function DetermineTriangleType(a, b, c: Integer): string; var aSquared, bSquared, cSquared: Int64; begin // Ensure sides are ordered a <= b <= c if (a > b) or (b > c) then Exit('Sisi tidak terurut dengan benar (harus a <= b <= c)'); if not IsValidTriangle(a, b, c) then Exit('Bukan segitiga'); aSquared := a * a; bSquared := b * b; cSquared := c * c; if aSquared + bSquared = cSquared then Result := 'Segitiga siku-siku' else if aSquared + bSquared > cSquared then Result := 'Segitiga lancip' else Result := 'Segitiga tumpul'; end; var a, b, c: Integer; begin try Write('Masukkan panjang sisi a: '); ReadLn(a); Write('Masukkan panjang sisi b: '); ReadLn(b); Write('Masukkan panjang sisi c: '); ReadLn(c); WriteLn(DetermineTriangleType(a, b, c)); except on E: Exception do WriteLn('Error: ', E.Message); end; WriteLn('Tekan Enter untuk keluar...'); ReadLn; end. 17:T4d9,program TriangleType; {$mode objfpc}{$H+} uses SysUtils; { Function to check if sides form a valid triangle } function IsValidTriangle(a, b, c: Integer): Boolean; begin Result := (a + b > c) and (a + c > b) and (b + c > a); end; { Function to determine triangle type } function DetermineTriangleType(a, b, c: Integer): string; var aSquared, bSquared, cSquared: Int64; begin // Ensure sides are ordered a <= b <= c if (a > b) or (b > c) then Exit('Sisi tidak terurut dengan benar (harus a <= b <= c)'); if not IsValidTriangle(a, b, c) then Exit('Bukan segitiga'); aSquared := a * a; bSquared := b * b; cSquare