kt

var ht:string; i,a,m,n:integer; BEGIN write('nhap xau: ');readln(ht); for i:=1 to length(ht) begin a:=length(ht); if ht[1] = ' ' then delete(ht,1,1); if ht[a] = ' ' then delete(ht,a,1); end; if (ord(ht[1]) >=97) and (ord(ht[1]) =65) and (n=97) and (n