Bài 3:

program oken;
uses crt;
var s: string;
begin
    clrscr;
    write('Nhap xau: '); readln(s);
    writeln('Xau vua nhap: ',s);
    writeln('Do dai cua xau: ',length(s));
    readln;
end.

Bài 4:

program oken;
uses crt;
var s: string;
    i: byte;
    kt: boolean;
begin
    clrscr;
    write('Nhap xau: '); readln(s);
    kt:= false;
    for i:=1 to length(s) do
        if s[i] = ' ' then
            begin
                kt:=true;
                break;
            end;
    if kt=false then
        write('Trong xau khong co dau cach')
    else
        write('Trong xau co dau cach');
    readln;
end.

Bài 5:

program oken;
uses crt;
var s: string;
    i: byte;
begin
    clrscr;
    write('Nhap xau: '); readln(s);
    for i:=1 to length(s) do
        s[i]:= upcase(s[i]);
    writeln('Xau in hoa: ',s);
    readln;
end.

Bài 6:

program oken;
uses crt;
var s:string;
    i:integer;
begin
    clrscr;
    write('nhap xau: '); readln(s);
    if (s[1]=' ') then
        delete(s,1,1);
    if (s[length(s)]=' ') then
        delete(s,length(s),1);
    for i:=length(s) downto 1 do
        if (s[i]=' ') and (s[i-1]=' ') then
            delete(s,i,1);
    for i:=1 to length(s) do
        begin
            if s[i]in['A'..'Z'] then s[i]:=chr(ord(s[i])+32);
            if (s[i]=' ') then s[i+1]:=upcase(s[i+1]);
        end;
    s[1]:=upcase(s[1]);
    writeln('xau sauu khi chuan hoa: ',s);
    readln;
end.