uses crt;
var S : string;
X, i, K : byte;
begin
clrscr;
write('Nhap xau = ');
readln(S);
X := 0;
write('Cac so nguyen am: ');
while pos('-', S) <> 0 do
begin
K := pos('-', S);
if S[K + 1] in ['0' .. '9'] then
begin
write('-');
X := X + 1;
end;
for i := K + 1 to length(S) do
if S[i] in ['0' .. '9'] then write(S[i])
else
begin
write(' ');
break;
end;
delete(S, K, 1);
end;
writeln;
write('Xau co ', X, ' so nguyen am');
readln
end.