Даны 4-е числа а,b,c,d.Известно,что одно отлично от других, равных между собой.Вывести это число на экран.Например:даны числа а=5,b=6,c=5,d=5.Требуется вывести 6 — Pascal(Паскаль)

uses crt;
var a,b,c,d:integer;
 
begin
 clrscr;
 write('-> ');
 readln(a,b,c,d);
 if (a=b) and (b=c) then write(d) else
 if (a=c) and (c=d) then write(b) else
 if (a=b) and (b=d) then write(c) else write(a);
 readln;
end.