... can chuan hoa: ');readln(st); while st[1]=' 'do delete(st,1,1); l:=length(st); while st[l]=' 'do begin delete(st,l,1); l:=length(st); end; l:=length(st); i:=1; ... Đề thi olympic tin học cấp huyện lần thứ nhấtnăm học 2008-2009Môn : Lập trình pascal (Thời gian : ... l:=length(st); i:=1; repeat if( st[i]=' ') and (st[i+1]=' ') then begin delete(st,i,1); i:=i-1; l:=length(st); end; inc(i); until i=l; st[1]:=upcase(st[1]); for...