Viết chương trình nhập vào Họ và tên của một học sinh, không bắt buộc nhập chữ hoa hay chữ thường ( Ví dụ : nguyEn VaN bINh). In ra màn hình: a) Họ và tên bằng chữ in hoa ( Ví dụ : NGUYEN VAN BINH) b) Họ và tên có ký đầu của mỗi tiếng bằng chữ in hoa, các ký tự còn lại là chữ thường ( ví dụ: Nguyen Van Binh ) giai ang pascal giup to voi

Var s: string;
    i: longint;

begin
    read(s);
    while s[1] = #32 do
        delete(s,1,1);
    while s[length(s)] = #32 do
        delete(s,length(s),1);
    while pos(#32#32,s) <> 0 do 
        delete(s,pos(#32#32,s),1);
    s:= upcase(s);
    writeln(s);
    s:= Lowercase(s);
    s[1]:= upcase(s[1]);
    For i:= 2 to length(s) do
        if s[i-1] = #32 then s[i]:= upcase(s[i]);
    writeln(s);
end.

var s: string;
    i: int64;
begin
    readln(s);
    writeln(upcase(s));
    s:=' '+s;
    for i:=2 to length(s) do begin
        if s[i-1]=' ' then write(upcase(s[i]))
        else write(Lowercase(s[i]));
    end;
end.