Viết chương trình nhập vào họ và tên 3 người vào 3 biến xâu ra màn hình ngắn nhất.nếu 2 xâu bằng nhau đưa ra xâu còn lại

program bai_giai;
uses crt;
var s1,s2,s3,s:string;
    min:byte;
begin
    clrscr;
    readln(s1);
    readln(s2);
    readln(s3);
    if (length(s1)=length(s2)) and (length(s2)=length(s3)) then write('3 xau bang nhau')
    else if length(s1)=length(s2) then write(s3)
        else if length(s1)=length(s3) then write(s2)
            else if length(s2)=length(s3) then write(s1)
                else
                    begin
                        min:=length(s1);  s:=s1;
                        if length(s2)<min then
                            begin
                                min:=length(s2);
                                s:=s2;
                            end;
                        if length(s3)<min then s:=s3;
                        write(s);
                    end;
    readln;
end.