Bài 3:
var s1,s2:string;
begin
write('Nhap ho ten nguoi thu nhat: '); readln(s1);
write('Nhap ho ten nguoi thu hai: '); readln(s2);
if s1>s2 then write(s1) else
if s1=s2 then write(s2) else write(s2);
readln
end.
Bài 4:
var i:byte;
a,b:string;
begin
write('Nhap xau: '); readln(a);
b:='';
for i:=1 to length(a) do
if a[i]<>' ' then b:=b+a[i];
write('Ket qua la: ',b);
readln
end.