Проверить являются ли заданные числа длинами сторон ромба, параллелограмма или четырёхугольника другого вида - PascalABC.NET

Формулировка задачи:

Заданы 4 числа проверить являются ли они длинами сторон ромба, параллелограмма или четырёхугольника другого вида. (Считать что стороны перечислены подряд).

Решение задачи: «Проверить являются ли заданные числа длинами сторон ромба, параллелограмма или четырёхугольника другого вида»

Листинг программы

if (a = c) and (b = d)
  then if a = b
    then write('Ромб')
    else write('Параллелограмм')
  else write('Другой четырехугольник');

Объяснение кода листинга программы

В данном коде проверяется, является ли заданная фигура ромбом, параллелограммом или другим четырехугольником.

В первой строке кода проверяется, равны ли длины сторон a и c, а также длины сторон b и d.
Если условие выполняется, то проверяется, равны ли длины сторон a и b.
Если это условие тоже выполняется, то выводится сообщение Ромб.
Если первое условие не выполняется, то выводится сообщение Параллелограмм.
Если ни одно из условий не выполняется, то выводится сообщение Другой четырехугольник.