Program hotrotinhoc;
var max,d,n,i,m: integer;
a: array[1..32000] of string;
st: string;
begin
write('Nhap xau st : '); readln(st);
d:=0; n:=0; max:=0;
for i:=1 to length(st) do
if not(st[i] in ['0'..'9']) then st[i]:=' ' else inc(d);
if d=0 then write('Khong co') else
begin
while st[1]=#32 do delete(st,1,1);
while st[length(st)]=#32 do delete(st,length(st),1);
while pos(#32#32,st)<>0 do delete(st,pos(#32#32,st),1);
st:=st+' ';
while length(st)<>0 do
begin
inc(n);
a[n]:=copy(st,1,pos(' ',st)-1);
delete(st,1,pos(' ',st));
end;
for i:=1 to n do
begin
val(a[i],m);
if m>max then max:=m;
end;
write('So nguyen duong lon nhat la :',max);
end;
readln
end.
Chú ý: Bài mình làm là bài in số nguyên lớn nhất liên tiếp với nhau trong xâu nhé.
