program RightTriangle; var a, b, c: integer; begin writeln('Enter the sides of the triangle:'); readln(a, b, c);
// Check if the triangle is right-angled if (aa + bb = cc) or (aa + cc = bb) or (bb + cc = a*a) then writeln('The triangle is right-angled.') else writeln('The triangle is not right-angled.'); end.
program RightTriangle;
var
a, b, c: integer;
begin
writeln('Enter the sides of the triangle:');
readln(a, b, c);
// Check if the triangle is right-angled
if (aa + bb = cc) or (aa + cc = bb) or (bb + cc = a*a) then
writeln('The triangle is right-angled.')
else
writeln('The triangle is not right-angled.');
end.