Определение вида треугольника (прямоугольный) по трем сторонам

P. S. нужно составить алгоритм

Program outr;

var a, b, c:real;

begin

readln (a, b, c) ;

writeln ('a=', a,' b=', b,' c=', c) ;

if (a+c>b) and (a+b>c) and (c+b>a) then

begin

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then

writeln ('треугольник прямоугольный') ;

end else

writeln ('треугольник построить невозможно') ;

end.