Uses Crt;
var a,b,c:integer;
Begin
Clrscr;
Write('Стороны треугольника через пробел: ');
Readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b)
then write('Возможно')
else write('Невозможно');
readln;
end.
Uses Crt;
var a,b,c:integer;
Begin
Clrscr;
Write('Стороны треугольника через пробел: ');
Readln(a,b,c);
If (a+b>c) and (b+c>a) and (c+a>b)
then write('Возможно')
else write('Невозможно');
readln;
end.