program kata ke

program kata ke :

contoh :
masukkan kata: aku,dia,saya,mereka,kamu
kata ke: 4

output:

kata ke 4: mereka



uses wincrt;

var
temp,S,S1:string;
N,C,j:integer;
begin

write('masukkan kata : ');readln(S);
write('kata ke : ');readln(N);


C:=1; S1:='';

for j:= 1 to length(S) do begin

if S[j]<>',' then begin
S1:=S1+S[j];
end else begin
S1:='';
C:=C+1;

end;
if (C=N) then temp:=S1
end;
writeln('kata ke ',N,' : ', temp);
end.