Даны М, N, К.

Определить, какие две переменные равны. Если равных переменных нет, вывести соответствующее сообщение

Var m, n, k:integer;

begin

readln (m, n, k);

if m=n then writeln ('m = n')

else if m=k then writeln ('m = k')

else if n=k then writeln ('n = k')

else writeln ('Равных значений нет');

end.

Пример:

8 5 8

m = k