оператори розгалуження

Задача. Скласти програму, яка, якщо введене число від'ємне, змінює його на протилежне

 Program Chisla;
Var
  x : integer;Begin
  writeln('Введіть число '); {вводимо ціле число}
  readln(x);
  if x<0
    then
      x:=-x;
  writeln (x);
  readln;
End.


завдання:

Трикутник існує тільки тоді, коли сума будь-яких двох його сторін більше третьою.

Дано: а, б, в - сторони передбачуваного трикутника.
Потрібно порівняти довжину кожного відрізка з сумою двох інших. Якщо хоча б в одному випадку відрізок виявиться більше суми двох інших, то трикутника з такими сторонами не існує.

var a, b, c: integer;
 
begin
    write (' довжини сторін ');
    readln (a,b,c);
 
    if (a < b+c) and (b < a+c) and (c < a+b) then
        writeln ('трикутник існує')
    else
        writeln ('трикутник не існує');
 
readln
end.