Написать программу, распознающую по длинам сторон среди всех треугольников прямоугольный. Если таковых нет, то вычислить величину угла С. (Паскаль) С объяснением, если можно. Заранее благодарен.

//искать угол будем по теореме косинусов
Program n1;
var x,y,z:real;
function arccos(x : real) : real; {это понадобится для теор. кос.}
begin
arccos := 2 * arctan(sqrt((1 - x) / (1 + x)));
end;
procedure ygl( a,b,c: real); {процедура для удобства}
var ga: real;
begin
ga:=arccos((sqr(a) + sqr(b) - sqr(c))/(2 * a* b)) * 180 / pi; {сама теор. кос.}
writeln(угол С= ,ga:5:2);
end;
begin
write(введите сторону а: );
readln(x);
write(введите сторону b: );
readln(y);
write(введите сторону c: );
readln(z);
if(x>=y+z)or(y>=x+z)or(z>=x+y)then writeln(Это не треугольник)
else if x*x+y*y=z*z then {теорема пифагора}
writeln(Это прямоугольный треугольник)
else if (x*x+y*y>z*z)and(x*x+z*z>y*y)and(z*z+y*y>x*x)
then
begin
writeln(Это остроугольный треугольник);
ygl(x,y,z); {вызываем процедуру}
end
else
begin
writeln(Это тупоугольный треугольник);
ygl(x,y,z);
end;
end.