Определить какой вид четырехугольника можно составить из заданных отрезков - Pascal ABC

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

Даны длины четырех отрезков. Определить какой вид четырехугольника можно составить из этих отрезков. Входные данные: Во входном потоке заданы четыре натуральных числа - длины четырех отрезков - сторон четырехугольника в порядке обхода. Значение всех исходных величин не превышают 30000. Выходные данные: В выходной поток вывести 1 если это квадрат, 2 если прямоугольник, 3 если произвольный четырехугольник. Пример входного файла (input.txt): 3 4 3 4 Пример выходного файла (output.txt): 2

Решение задачи: «Определить какой вид четырехугольника можно составить из заданных отрезков»

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

var a,b,c,d:integer;
begin
readln(a,b,c,d);
if (a=c) and (b=d) then
 begin
  if a=b then write(1)
  else write(2)
 end
else write(3);
end.

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

В данном коде происходит следующее:

Создаются четыре переменные типа Integer: a, b, c, d.
С помощью функции readln() считываются значения этих переменных с консоли.
Проверяется условие: если a равно c и b равно d, то выполняется блок кода внутри if.
Внутри if проверяется еще одно условие: если a равно b, то выводится значение 1, иначе выводится значение 2.
Если ни одно из условий не выполнилось, то выводится значение 3. Таким образом, данный код позволяет определить, является ли четырехугольник, составленный из заданных отрезков, прямоугольником или нет.