program timk;
uses crt;
var st:string;
k:char;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
write('Nhap ki tu k: '); readln(k);
if pos(k,st)=0 then write('Khong co')
else
begin
write('Vi tri xuat hien cua k trong xau la: ');
for i:=1 to length(st) do
if st[i]=k then write(i,' ');
end;
readln;
end.