Я не понял, что надо делать с заданием... Но вот решение задачи на паскале =)var a,b,c:real;beginwriteln('Введите a,b,c: ');read(a,b,c);if a=b then writeln('a=b') elseif a=c then writeln('a=c') elseif b=c then writeln('b=c') elsewriteln('Все числа разные');end.