Из трех отрезков a, b, c можно составить треугольник, если выполняется неравенство треугольника: сумма длин двух любых сторон треугольника строго больше длины третьей.
program triangle; var a,b,c:integer; res:string; begin readln(a,b,c); { отсортировать a,b,c. Имеем: a <= b <= c } if c >= a + b then res := 'Не возможно!' else if c*c = a*a + b*b then res := 'Возможно, прямоугольный.' else if c*c < a*a + b*b then res := 'Возможно, остроугольный.' else res := 'Возможно, тупоугольный'; writeln(res); end.
var a: integer;
begin
writeln('Введите четырехзначное число');
readln(a);
if a div 1000=(((a mod 1000) mod 100) mod 10) then writeln('Верно') else writeln('Не верно');
end.