Предполагаем без проверки, что треугольник по заданным длинам сторон построить можно (иначе надо убедиться. что сумма каждой пары сторон больше третьей стороны).
А дальше выясняем, какая сторона самая длинная и полагаем, что две другие - это катеты. И проверяем, выполняется ли теорема Пифагора с точностью до какой-то допустимой погрешности, например, до 10⁻⁹.
const
eps=1e-9; // допустимая погрешность
var
a,b,c,t:real; // c - гипотенуза
begin
Write('Введите длины сторон треугольника: '); Read(a,b,c);
if a>c then begin t:=a; a:=c; c:=t end;
if b>c then begin t:=b; b:=c; c:=t end;
if abs(a*a+b*b-c*c)<=eps then Writeln('Треугольник прямоугольный')<br> else Writeln('Треугольник не прямоугольный')
end.