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

var m,n,k:integer;beginreadln(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 8m = k