Даны три вещественных числа a, b, c. определить, имеется ли среди них хотя бы пара равных между собой чисел.

Я не понял, что надо делать с заданием... Но вот решение задачи на паскале =)

var a,b,c:real;
begin
writeln('Введите a,b,c: ');
read(a,b,c);
if a=b then writeln('a=b') else
if a=c then writeln('a=c') else
if b=c then writeln('b=c') else
writeln('Все числа разные');
end.