PascalABC.NET
---------------------------------------------
Определение числа. Чётное или нет.
---------------------------------------------

program DZ1;

var a,b:integer;

begin
writeln('Введите число.');
readln(a);
b:= a mod 2;
if b>0
then
writeln('Число нечётное')
else
writeln('Число чётное.');
end.
---------------------------------------------
Определения треугольника. Равнобедренный или нет.
---------------------------------------------

program DZ2;

var a, b, c:integer;

begin
writeln ('Введите сторону A');
readln (a);
writeln ('Введите сторону B');
readln (b);
writeln ('Введите сторону C');
readln (c);
if (a < b+c) and (b < a+c) and (c < a+b)
then

begin
if (a=b) or (a=c) or (b=c)
then
writeln('Этот треугольник равнобедренный.')
else
writeln('Этот треугольник не равнобедренный.');
end
else
writeln ('Сумма всех сторон треугольника должна составлять 180 градусов.');
end.
---------------------------------------------