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