= 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);