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

Если на Pascal ABC, то так: Program chisla; Var a,b,c:integer; Begin writeln('Введите число a: '); readln(a); writeln('Введите число b: '); readln(b); writeln('Введите число c: '); readln(c); if a=bthen writeln('Числа a и b равны!'); if a=cthen writeln('Числа a и c равны!'); if b=cthen writeln('Числа c и b равны!'); end. Надеюсь помог)