Free Pascal. Что значит "in" в паскале? И чем можно его заменить?

Question

У меня есть задача с использованием "in", а препод сказал убрать "in". Чем можно этот "in" заменить 
Вот код задачи: 
var n,i,k1,k2,k3:integer; 
 s:char; 
begin 
k1:=0; 
k2:=0; 
k3:=0; 
write('Сколько символов в последовательности? : '); 
readln(n); 
for i:=1 to n do 
begin 
write('Введите ',i,'-й символ: '); 
readln(s); 
if s='+' then 
inc(k1); 
if s='*' then 
inc(k2); 
if s in['+','-','*'] then 
inc(k3); 
end; 
writeln; 
writeln('В последовательности ',k1,' знаков "+";'); 
writeln('В последовательности ',k2,' знаков "*";'); 
writeln('В последовательности ',k3,' вхождений знаков "+", "-" и "*".'); 
readln; 
end.

Инкогнито · Accepted Answer

if(s = '+' or s = '-' or s = '*')

Любим Хорватов · Answer

if pos(s,'+-*')<>0 then

Киряхинсон · Answer

Сам пиши программу и не парься. 
Конкретно тут - сравнивай s с каждым элементом множества.

Sofia Kulnichenko · Answer

Че так сложно и замудрено?
if s = '*' then k1:= k+1 
else if s = '+' then k2:= k2+1
else if s = '-' then k3:= k3+1;