Pascal ABCОператор case of и if then else:Задача 1 Вводятся 3 числа. Можно ли построить треугольник с такими сторонами? Если построить треугольник можно, то определить, является ли он равносторонним, равнобедренным или прямоугольным? Задача 2 Поле шахматной доски определяется значением двух координат. По введенным координатам двух полей (x1, y1) и (x2, y2) определить, являются ли эти поля полями одного цвета

Первая задача:

program CaseOfIfTask1;

var a, b, c : integer;

begin

readln (a, b, c);

if ((a + b > c) or (b + c > a) or (a + c > b)) then

begin

if ((a = b) and (a = c)) then writeln ('Равносторонний')

else if ((a = b) or (b = c) or (a = c)) then writeln ('Равнобедренный');

if ((a*a + b*b = c*c) or (a*a + c*c = b*b) or (b*b + c*c = a*a)) then writeln ('Прямоугольный')

end;

end.

Задача 2:

program CaseOfIfTask2;

var x1, y1, x2, y2 : integer;

begin

readln (x1, y1, x2, y2);

if ((x1 mod 2 = y1 mod 2) = (x2 mod 2 = y2 mod 2)) then

WriteLn ('Одинаковые')

else

WriteLn ('Разные')

end.