1/

Đáp án là x=6

2/

Program BTH;
uses crt;
var s1,s2:string;
i,n:longint;
begin
    clrscr;
    write('Nhap xau 1: '); readln(s1);
    write('Nhap xau 2: '); readln(s2);
    i:=length(s1);
    n:=length(s2);
    if i>n then
    begin
        writeln('Xau 1 dai hon xau 2');
        writeln('Xau 1 co ',i,' tu');
    end
        else if n>i then
            begin
                writeln('Xau 2 dai hon xau 1');
                writeln('Xau 2 co ',n,' tu');
            end
        else
            begin
                writeln('Do dai hai xau bang nhau');
                writeln('Do dai 2 xau la: ',i);
            end;
    readln;
end.

câu 1: 

sau khi chạy kết quả in ra màn hình : 6

câu 2:

program oken;
uses crt;
var s1,s2:string;
    i,y:byte;
begin
        clrscr;
        write('nhap xau thu 1: '); readln(s1);
        write('nhap xau thu 2: '); readln(s2);
        i:=length(s1); y:=length(s2);
        if i>y then
                begin
                        writeln('xau 1 dai hon xau 2');
                        writeln('do dai xau 1: ',i);
                end
        else if y>i then
                begin
                        writeln('xau 2 dai hon xau 1');
                        writeln('do dai xau 2: ',y);
                end
             else
                begin
                        writeln('2 xau co do dai bang nhau');
                        writeln('do dai 2 xau : ',i);
                end;
        readln;
end.

{Hình là kết quả in ra màn hình của câu 1}