Напишите программу в Паскале, которая получает три числа и выводит количество натуральных одинаковых чисел в этой цепочке.

пример: введите три чила:

5 5 5

все числа одинаковые.

спасибо

Если в три переменные:var a,b,c:integer;beginwriteln ('Введите 3 числа');read (a,b,c);if (a=b)or (a=c) or (b=c) then beginif (a>1) and (b>1) and (c>1)and (a=b) and (a=c) and (b=c) then //Одно ненужное условие для наглядностиwriteln ('Все числа одинаковые');if ((a>1) and (b>1) and (a=b)) or ((a>1) and (c>1) and (a=c)) or ((b>1) and (c>1) and (b=c)) then writeln (2);endelse writeln ('Нет одинаковых чисел');end.