= 1; WHILE I<= LENGTH(ST) DO BEGIN
1.5
if st[i]=ch then Delete(st,i,1)
elses
i:=i + 1;
Writeln('Xau sau khi xoa la: ',st);
readln;
0.5
End.
Program DOI_THAP_PHAN_SANG_NHI_PHAN;
Uses Crt;
Var
d:array[1..20] of byte;
i, j, n: integer;
Begin
Clrscr;
Writeln('DOI SO THAP PHAN SANG NHI PHAN:');
Writeln('---');
Write('Nhap so thap phan la n='); Readln(n);