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

Если на 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.
Полагаюсь помог)