Объяснение:
var a,b,c : integer;
begin
readln(a,b,c);
if (a=b) or (a=c) or (b=c) then
writeln('есть')
else
writeln('нету');
end.
