Дана последовательность символов. выяснить, имеются ли в ней все буквы, входящие в слово шина

Var s,t:string; k,i:integer;
begin
readln(s);
t:='шина';
k:=0;
for i:=1 to length(t) do
 if pos(t[i],s)>0 then k:=k+1;
if k=length(t) then writeln('YES')
else writeln('NO');
end. 

Пример:
шикарный
YES

1 непрерывный (сигнал)

2 ( происходит его) оцифровка

3 дискретный, цифровой (сигнал)

4  (называется) глубиной кодирования звука

5 (расчитать) информационный объем файла

6 (N-это) количество уровней громкости звука

7 (І-ЭТО) глубина кодировки звука

8 (зависит от) частоты дискретизации

9 глубины звука (за) секунду

10 (V- это) - частота дискретизации измеряется в герцах

(f -это) - глубина дискретизации измеряется в битах

(t-это) -время звучания или записи измеряется в секундах

(К определяет количество) каналов

если моно к= 1, если стерео к= 2, если квадро к= 4

Объяснение:

1. 1v1=1 ,  1∧0=0 ,  ¬0=1

2. ¬А=1, ВvС=0, Д∧С=1

Объяснение:

1

AvВ, если А = 1, В = 1           1v1=1

A ∧ B, если A = 1, B = 0        1∧0=0

¬ А, если А= 0                      ¬0=1

2.     1. инверсия – это логическое отрицание, в данном случае высказывание А не истинно, значит не(не истина)=истинна

2. Дизъюнкция – логическое сложение будет истинным тогда, когда хотя бы одно исходное высказывание истинно, так как В-ложь и С ложь, то ВvС=0

3. Конъюнкция – логическое умножение будет истинным тогда, когда оба исходных выражения истинны. Т.к. Д и С истинны, то и результат истина, т.е. =1