program Tin_hoc;
uses crt;
var i,k:integer;
s:string;
begin
clrscr;
writeln('Nhap xau S:');readln(s);
k:=0;
writeln('Cac so nguyen am co trong xau S la:');
for i:= 1 to length(s) do if (s[i] = '-') and (s[i+1] in ['1'..'9']) then
begin
write(s[i],'',s[i+1],' ');
inc(k)
end;
writeln('Xau S co ',k,' so nguyen am');
readln;
end.
Nhớ cho mik câu TLHN nha