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

У меня есть задача с использованием "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.

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

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

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

Другие вопросы из категории «Компьютеры, Связь»