Имеются четыре произвольных числа a, b, c, d. Программка должна произвести

Var a,b,c,d: Integer;
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
if (a=b) or (a=c) or (a=d) or (b=a) or (b=c) or (b=d) or (c=a) or (c=b) or (c=d) or (d=a) or (d=b) or (d=c) then
writeln('Посреди чисел есть одинаковые числа') else writeln('Посреди чисел нет одинаковых чисел');
end.