ЗАДАЧА 1

var a:integer;

begin

writeln('Введите число');

readln(a);

if a mod 2=0

then writeln('Четное число')

else writeln('Нечетное число');

end.

ЗАДАЧА 2

var a,b,c:integer;

begin

writeln('Введите длину первой стороны');

readln(a);

writeln('Введите длину второй стороны');

readln(b);

writeln('Введите длину третьей стороны');

readln(c);

if (a=b)and(b=c)and(a=c)

then writeln('Треугольник является равносторонним');

if (a=b)or(b=c)or(a=c)

then writeln('Треугольник равнобедренный');

if (a<>b)and(b<>c)and(a<>c)

then writeln('Треугольник разносторонний');

end.

ЗАДАЧА 3

var a,b,c,d:integer;

begin

writeln('Введите длину первой стороны');

readln(a);

writeln('Введите длину второй стороны');

readln(b);

writeln('Введите длину третьей стороны');

readln(c);

writeln('Введите длину четвертой стороны');

readln(d);

if (a=b)and(b=c)and(c=d)

then writeln('Четырехугольник является квадратом');

if (a=b) and (c=d)or(a=c)and(b=d)or(a=d) and(c=d) or(b=c) and(d=a)

then writeln('Четырехугольник является прямоугольником');

else Writeln('Четырехугольник является трапецией');

end.