Make a program that, based on the three numbers you entered, will determine whether these numbers can be the lengths

Make a program that, based on the three numbers you entered, will determine whether these numbers can be the lengths of the sides of the triangle and, if so, determine the type of this triangle.

We write the program:
Pascal ABC.
program qq;
var
a, b, c: real;
begin
writeln (‘Enter two legs A, B and the hypotenuse C of the triangle’);
readln (a, b, c);
if (c> = a + b) or (a + b + c = 0) then writeln (‘This triangle does not exist’)
else begin
if sqr (c) = sqr (a) + sqr (b) then writeln (‘Rectangular’);
if sqr (c)> sqr (a) + sqr (b) then writeln (‘Obtuse’);
if sqr (c) <sqr (a) + sqr (b) then writeln (‘Sharp’);
end;
end.
The program has been written.