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

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.