1) Ввести с клавиатуры целое число. Определить четное оно, или
нечетное.
2) Решить следующие задачи:
Является ли треугольник с длинами сторон a, b, c :
* прямоугольным;
* равнобедренным;
* равносторонним.
Стороны вводятся с клавиатуры.

1)varx : integer;beginreadln(x);if x mod 2 = 0 then  writeln('Число четное');else  writeln('Число нечетное');end.проверим прямоугольность с помощью теоремы Пифагораvara,b,c : integer;beginreadln(a,b,c);if (a*a+b*b = c*c) or (b*b+c*c = a*a) or (c*c+a*a = b*b) then writeln('Треугольник прямоугольный);elseif(b=a) or (b=c) or (a=c) then writeln('Треугольник равнобедренный');elseif(a=b) and (b=c) and (a=c) then writeln('Треугольник равносторонний');else writeln('Треугольник не прямоугольный, не равнобедренный и не равносторонний');end.