Через программу проверить истинность высказывния "среди трех данных целых  чисел есть хотя бы одна пара совпадающих"

Program num1; Uses crt; Var a,b,c : real; Begin clrscr; write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); if (a=b) or (b=c) or (c=a) then write ('Высказывание <Среди трех данных целых чисел есть хотя бы одна пара совпадающих> истино') else write('Высказывание <Среди трех данных целых чисел есть хотя бы одна пара совпадающих> ложно'); End.