В заданном тексте определить содержит ли он символ "&" (да, нет) pascal

Question

В заданном тексте определить содержит ли он символ "&" (да, нет) pascal

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 s:string;
begin
 readln(s);
 if pos('&',s)<>0 then writeln('Да') else writeln('Нет');
end.

Пример ввода:
A&B
Пример вывода:
Да