Найти количество равных чисел из трех - Pascal ABC

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

Здравствуйте, уважаемые программисты! помогите решить задачки: 1. Даны три целых числа, записанных в отдельных строках. Определите, сколько среди них совпадающих. Программа должна вывести одно из чисел: 3 (если все совпадают), 2 (если два совпадают) или 0 (если все числа различны).

Решение задачи: «Найти количество равных чисел из трех»

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

 Program primer2;
 Var a,b,c:integer;
 BEGIN
   Write ('Vvedite A,B,C cherez probel ');
   Readln (a,b,c);
   if (a=b) And (a=c) And (b=c) then Write ('3')
   else if ((a=b) And (a<>c) And (b<>c)) Or ((a<>b) And (a=c) And (b<>c)) Or ((a<>b) And (a<>c) And (b=c)) then Write ('2')
   else if (a<>b) And (a<>c) And (b<>c) then Write ('0');
 END.

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

Этот код написан на языке Pascal ABC и предназначен для решения задачи, которая заключается в определении количества равных чисел из трех введенных пользователем чисел. В начале программы объявляются три переменные типа Integer: a, b и c. Затем программа запрашивает у пользователя ввести три числа, после чего эти числа присваиваются соответствующим переменным. Далее, с помощью условного оператора if-And проверяется, равны ли все три числа друг другу. Если это условие выполняется, то выводится число 3. Это означает, что все три числа равны между собой. Если условие не выполняется, то используются дополнительные условия с помощью операторов And и Or для определения количества равных чисел. Если выполняется хотя бы одно из этих условий, то выводится число 2, что означает, что есть два равных числа. Если не выполняется ни одно из этих условий, то выводится число 0, что означает, что нет равных чисел. Таким образом, данный код позволяет определить количество равных чисел из трех введенных пользователем чисел.