Пожалуйста посчитайте пожалуйста

//Pascal
var
  N: integer;
begin
write('Введите число: ');
readln(N);
if N mod 2 = 0 then
  writeln('Число ', N,' - четное')
else
  writeln('Число ', N,' - нечетное');
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.

1. спасибо большое за помощь