Если прямоугольного треугольника:
var
a, b, c : longint;
begin
write('Введите a, b и c через пробел: ');
readln(a, b, c);
if (sqr(a) = sqr(b) + sqr(c)) or
(sqr(b) = sqr(a) + sqr(c)) or
(sqr(c) = sqr(a) + sqr(b)) then write('Можно!') else write('Нельзя!')
end.