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

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.