Viết chương trình: - Nhập vào một xâu S từ bàn phím. - Hãy đưa ra màn hình tất cả các nguyên âm xuất hiện trong xâu S vừa nhập và đếm xem trong xâu vừa nhập có bao nhiêu nguyên âm. Cảm ơn các bạn.

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

uses crt;

var s : string; i, dem : byte;

begin

clrscr;

write('Nhap xau : '); readln(s);

dem := 0;

for i := length(s) downto 2 do

if (s[i - 1] = '-') and (s[i] in ['1' .. '9'])

then dem := dem + 1;

write('Co ', dem ,' so nguyen am trong xau');

readln

end.