Даны четыре целых числа, одно из которых отлично от трех других, равных между собой — Pascal(Паскаль)

var
a,b,c,d:integer;
begin
readln(a,b,c,d);
if a<>b then
if a<>c then writeln(1)else writeln(2)
else if c<>a then writeln(3)else writeln(4);
readln;
end.