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

var a, b, c: integer;

begin

writeln ('Введите 3 целых числа');

read (a, b, c);

write ('Среди трех данных чисел есть хотя бы одна пара совпадающих');

if (a=b) or (a=c) or (b=c) then write (' - выражение истинно') else write (' - выражение ложно');

end.